validator/httpd/cgi-bin check,1.779,1.780

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

Modified Files:
	check 
Log Message:
Drop unused variable.

Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.779
retrieving revision 1.780
diff -u -d -r1.779 -r1.780
--- check	13 Jun 2010 21:45:40 -0000	1.779
+++ check	13 Jun 2010 21:47:08 -0000	1.780
@@ -659,8 +659,7 @@
 
             # handle a structured error (XML::LibXML::Error object)
 
-            my $err_obj         = $@;
-            my $num_xmlwf_error = 0;
+            my $err_obj = $@;
             while ($err_obj) {
                 my $err;
                 $err->{src} = '...';    # do this with show_open_entities()?
@@ -683,7 +682,6 @@
                 }
 
                 unshift(@xmlwf_error_list, $err);
-                $num_xmlwf_error++;
             }
         }
         elsif ($@) {
@@ -693,7 +691,6 @@
             my $xmlwf_error_msg   = undef;
             my $got_error_message = undef;
             my $got_quoted_line   = undef;
-            my $num_xmlwf_error   = 0;
             foreach my $msg_line (split "\n", $xmlwf_errors) {
 
                 $msg_line =~ s{[^\x0d\x0a](:\d+:)}{\n$1}g;
@@ -787,8 +784,6 @@
                     $xmlwf_error_line = undef;
                     $xmlwf_error_col  = undef;
                     $xmlwf_error_msg  = undef;
-                    $num_xmlwf_error++;
-
                 }
             }
         }

Received on Sunday, 13 June 2010 21:47:12 UTC