W3C home > Mailing lists > Public > www-validator-cvs@w3.org > June 2009

validator/httpd/cgi-bin check,1.655,1.656

From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
Date: Thu, 04 Jun 2009 15:28:29 +0000
To: www-validator-cvs@w3.org
Message-Id: <E1MCErl-0004MZ-8q@lionel-hutz.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

This archive was generated by hypermail 2.3.1 : Wednesday, 7 January 2015 15:17:36 UTC