- From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
- Date: Sat, 12 Sep 2009 14:29:30 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/validator/httpd/cgi-bin
In directory hutz:/tmp/cvs-serv7632
Modified Files:
check
Log Message:
Revert some breaking bits of the previous change.
Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.687
retrieving revision 1.688
diff -u -d -r1.687 -r1.688
--- check 12 Sep 2009 14:22:49 -0000 1.687
+++ check 12 Sep 2009 14:29:28 -0000 1.688
@@ -3330,8 +3330,8 @@
my $class = ref($proto) || $proto;
my $self = $class->SUPER::new(@rest);
- $self->{W3C::Validator::CFG} = $CFG;
- $self->{W3C::Validator::File} = $File;
+ $self->{'W3C::Validator::CFG'} = $CFG;
+ $self->{'W3C::Validator::File'} = $File;
$self->env_proxy();
$self->agent($File->{Opt}->{'User Agent'});
@@ -3358,10 +3358,10 @@
sub uri_ok {
my ($self, $uri) = @_;
- return 1 if ($self->{W3C::Validator::CFG}->{'Allow Private IPs'} or
+ return 1 if ($self->{'W3C::Validator::CFG'}->{'Allow Private IPs'} or
!$uri->can('host'));
- my $h5uri = $self->{W3C::Validator::CFG}->{External}->{HTML5};
+ my $h5uri = $self->{'W3C::Validator::CFG'}->{External}->{HTML5};
if ($h5uri) {
my $clone = $uri->clone(); $clone->query(undef); $clone->fragment(undef);
$h5uri = URI->new($h5uri); $h5uri->query(undef); $h5uri->fragment(undef);
@@ -3376,7 +3376,7 @@
}
}
if ($iptype && $iptype ne 'PUBLIC') {
- my $File = $self->{W3C::Validator::File};
+ my $File = $self->{'W3C::Validator::File'};
$File->{'Error Flagged'} = 1;
$File->{Templates}->{Error}->param(fatal_ip_error => 1);
$File->{Templates}->{Error}->param(fatal_ip_hostname => 1)
Received on Saturday, 12 September 2009 14:29:40 UTC