diff options
| -rwxr-xr-x | httpd/cgi-bin/check | 11 | ||||
| -rwxr-xr-x | httpd/cgi-bin/sendfeedback.pl | 5 |
2 files changed, 7 insertions, 9 deletions
diff --git a/httpd/cgi-bin/check b/httpd/cgi-bin/check index 794a746..6a0c333 100755 --- a/httpd/cgi-bin/check +++ b/httpd/cgi-bin/check @@ -14,7 +14,7 @@ # This source code is available under the license at: # http://www.w3.org/Consortium/Legal/copyright-software # -# $Id: check,v 1.474 2007-03-12 20:25:39 ville Exp $ +# $Id: check,v 1.475 2007-03-12 20:29:55 ville Exp $ # # Disable buffering on STDOUT! @@ -180,7 +180,7 @@ Directory not readable (permission denied): @_r # # Strings - $VERSION = q$Revision: 1.474 $; + $VERSION = q$Revision: 1.475 $; $VERSION =~ s/Revision: ([\d\.]+) /$1/; # @@ -818,9 +818,8 @@ sub prep_template ($$) { 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 @@ sub show_errors ($) { # @@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; } diff --git a/httpd/cgi-bin/sendfeedback.pl b/httpd/cgi-bin/sendfeedback.pl index d182d7a..69dcc99 100755 --- a/httpd/cgi-bin/sendfeedback.pl +++ b/httpd/cgi-bin/sendfeedback.pl @@ -1,7 +1,7 @@ #!/usr/bin/perl -T ## ## feedback generator for W3C Markup Validation Service -# # $Id: sendfeedback.pl,v 1.6 2006-08-15 21:51:08 ville Exp $ +# # $Id: sendfeedback.pl,v 1.7 2007-03-12 20:29:56 ville Exp $ ## Pragmas. use strict; @@ -91,7 +91,6 @@ our $T = HTML::Template->new( die_on_bad_params => FALSE, ); -our $errnum; our $errlist = ""; our $errmsg_text; our $validated_uri; @@ -122,7 +121,7 @@ sub error_choices { @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)."..." } |