W3C home > Mailing lists > Public > www-validator-cvs@w3.org > March 2007

validator/httpd/cgi-bin check,1.474,1.475 sendfeedback.pl,1.6,1.7

From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
Date: Mon, 12 Mar 2007 20:29:58 +0000
To: www-validator-cvs@w3.org
Message-Id: <E1HQr9a-0003qP-4e@lionel-hutz.w3.org>

Update of /sources/public/validator/httpd/cgi-bin
In directory hutz:/tmp/cvs-serv14695

Modified Files:
	check sendfeedback.pl 
Log Message:
Whitespace, appease Perl::Critic a bit more (NFC)

Index: sendfeedback.pl
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/sendfeedback.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- sendfeedback.pl	15 Aug 2006 21:51:08 -0000	1.6
+++ sendfeedback.pl	12 Mar 2007 20:29:56 -0000	1.7
@@ -91,7 +91,6 @@
   die_on_bad_params => FALSE,
 );
 
-our $errnum;
 our $errlist = "";
 our $errmsg_text;
 our $validated_uri;
@@ -122,7 +121,7 @@
     @msgnumbers = sort { $a <=> $b } @msgnumbers;
     my $errlabel;
 
-    for $errnum ( @msgnumbers ) {
+    for my $errnum ( @msgnumbers ) {
         $errlabel = $RSRC->{msg}->{$errnum}->{original};
         $errlabel = de_template_explanation($errlabel);
 	if (length($errlabel) > 70) { $errlabel = substr($errlabel, 0, 67)."..." }

Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.474
retrieving revision 1.475
diff -u -d -r1.474 -r1.475
--- check	12 Mar 2007 20:25:39 -0000	1.474
+++ check	12 Mar 2007 20:29:55 -0000	1.475
@@ -818,9 +818,8 @@
   my %seen_ns = ();
   my @bulk_ns =  @{$File->{Namespaces}};
   $File->{Namespaces} = []; # reinitialize the list of non-root namespaces
-  my  $single_namespace;
   # ... and then get a uniq version of it
-  foreach $single_namespace (@bulk_ns) {
+  foreach my $single_namespace (@bulk_ns) {
      push(@{$File->{Namespaces}}, $single_namespace) unless $seen_ns{$single_namespace}++;
   }
   my @nss                   =  map({uri => $_}, @{$File->{Namespaces}});
@@ -1554,8 +1553,8 @@
   # @@FIXME This is broken with SGML::Parser::OpenSP
   my $file_raw_errors = "";
   for (@{shift->{DEBUG}->{Errors}}) {
-  $file_raw_errors .= ent $_
-  };
+    $file_raw_errors .= ent $_;
+  }
   return $file_raw_errors;
 }
 
Received on Monday, 12 March 2007 20:30:17 UTC

This archive was generated by hypermail 2.4.0 : Friday, 17 January 2020 23:02:21 UTC