- From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
- Date: Thu, 04 Jun 2009 15:28:29 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/validator/httpd/cgi-bin
In directory hutz:/tmp/cvs-serv16757
Modified Files:
check
Log Message:
Trim trailing whitespace, NFC.
Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.655
retrieving revision 1.656
diff -u -d -r1.655 -r1.656
--- check 19 May 2009 22:50:05 -0000 1.655
+++ check 4 Jun 2009 15:28:26 -0000 1.656
@@ -564,7 +564,7 @@
}
if ($File->{'Direct Input'}) { #explain why UTF-8 is forced
- &add_warning('W28', {});
+ &add_warning('W28', {});
}
unless ($File->{Charset}->{XML} || $File->{Charset}->{META}){ #suggest character encoding info within doc
&add_warning('W27', {});
@@ -719,7 +719,7 @@
unshift(@xmlwf_obj_error_list, $err_obj);
}
my $num_xmlwf_error = 0;
- foreach my $err_obj (@xmlwf_obj_error_list){
+ foreach my $err_obj (@xmlwf_obj_error_list){
#die($err_obj->dump());
my $err;
my $offset;
@@ -739,7 +739,7 @@
push (@xmlwf_error_list, $err);
$num_xmlwf_error++;
}
- }
+ }
elsif ($@) {
my $xmlwf_errors = $@;
my $xmlwf_error_line = undef;
@@ -854,7 +854,7 @@
W00_experimental_name => "validator.nu Conformance Checker",
W00_experimental_URI => "feedback.html"
});
- }
+ }
}
else {
$File = &dtd_validate($File);
@@ -880,7 +880,7 @@
# differences as long as our transcoding process does not "fix" the
# charset info in XML declaration and meta http-equiv (any others?).
if($File->{'Direct Input'}) { # sane default when using html5 validator by direct input
- $req->content_type("application/xml; charset=UTF-8");
+ $req->content_type("application/xml; charset=UTF-8");
}
else {
$req->content_type("$File->{ContentType}; charset=UTF-8");
@@ -979,7 +979,7 @@
$err->{num} = 'validator.nu';
$err->{msg} = $xml_error_msg;
$err->{expl} = $xml_error_expl;
-
+
if ($err->{msg} =~ /Using the preset for (.*) based on the root namespace/ ) {
$File->{DOCTYPE} = $1;
}
@@ -1012,7 +1012,7 @@
# differences as long as our transcoding process does not "fix" the
# charset info in XML declaration and meta http-equiv (any others?).
if($File->{'Direct Input'}) { # sane default when using html5 validator by direct input
- $req->content_type("text/html; charset=UTF-8");
+ $req->content_type("text/html; charset=UTF-8");
}
else {
$req->content_type("$File->{ContentType}; charset=UTF-8");
@@ -1573,7 +1573,7 @@
} else {
$T->param(have_badge_rdfa => FALSE);
}
-
+
$T->param(badge_alt => $cfg->{Badge}->{Alt});
$T->param(badge_h => $cfg->{Badge}->{Height});
$T->param(badge_w => $cfg->{Badge}->{Width});
@@ -2371,7 +2371,7 @@
# $File->{DOCTYPE} = "-//W3C//DTD SVG 1.0//EN";
# $File->{"DOCTYPEless OK"} = TRUE;
# $File->{Opt}->{DOCTYPE} = "SVG 1.0";
- # }
+ # }
# if ((($File->{'Root Version'} eq "1.1") or ($File->{'Root Version'} eq "0")) and ($File->{'Root BaseProfile'} eq "tiny")) {
# $File->{DOCTYPE} = "-//W3C//DTD SVG Tiny 1.1//EN";
# $File->{"DOCTYPEless OK"} = TRUE;
@@ -3150,7 +3150,7 @@
if ($err->{num} eq '108') {
$err->{msg} = "Attribute \"".$bogus_elt_attr."\" is not a valid attribute";
}
-
+
if((exists $self->{CFG}->{Attributes}->{lc($bogus_elt_attr)}) and ($err->{num} eq '108')) {
# attribute not available in this context.
$err->{msg} = 'Attribute "'.lc($bogus_elt_attr).'" can not be used for this element.';
@@ -3161,18 +3161,18 @@
((exists $self->{CFG}->{Elements}->{lc($bogus_elt_attr)}) and ($err->{num} eq '76'))
)
and (lc($bogus_elt_attr) ne $bogus_elt_attr)
- )
- {
+ )
+ {
$err->{msg} .= '. Did you mean "'.lc($bogus_elt_attr).'"?';
}
else { #fuzzy-match and suggest alternatives
my @matches;
if ($err->{num} eq '108') {
@matches = String::Approx::amatch($bogus_elt_attr, ["3i"], keys %{$self->{CFG}->{Attributes}});
- }
+ }
elsif ($err->{num} eq '76') {
@matches = String::Approx::amatch($bogus_elt_attr, ["3i"], keys %{$self->{CFG}->{Elements}});
- }
+ }
if (@matches){
my %distances;
@distances{@matches} = map { abs } String::Approx::adist(lc($bogus_elt_attr), @matches);
@@ -3183,7 +3183,7 @@
# }
if (@matches > 1){
$err->{msg} .= '. Did you mean "'.$matches_sorted[0].'" or "'.$matches_sorted[1].'"?';
-
+
}
else {
$err->{msg} .= '. Did you mean "'.$matches_sorted[0].'"?';
Received on Thursday, 4 June 2009 15:28:36 UTC