validator/httpd/cgi-bin check,1.552,1.553

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

Modified Files:
	check 
Log Message:
* muting the perl -w warnings 
"check: \\1 better written as $1 at /usr/local/validator/httpd/cgi-bin/check line 642"

* undef-ing content copy after use



Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.552
retrieving revision 1.553
diff -u -d -r1.552 -r1.553
--- check	30 Jul 2007 06:23:43 -0000	1.552
+++ check	2 Aug 2007 04:57:54 -0000	1.553
@@ -641,10 +641,11 @@
   # so we have to amend it to reflect transcoding. see Bug 4867
   $xml_string =~ s/(<\?xml.*)
 (encoding[\x20|\x09|\x0D|\x0A]*=[\x20|\x09|\x0D|\x0A]*(?:"[A-Za-z][a-zA-Z0-9_-]+"|'[A-Za-z][a-zA-Z0-9_-]+'))
-(.*\?>)/\1encoding="utf-8"\3/sx;
+(.*\?>)/$1encoding="utf-8"$3/sx;
   eval {
     $xmlparser->parse_string($xml_string);
   };
+  $xml_string = undef; 
   my $xml_parse_errors_line = undef;
   my @xmlwf_error_list;
   if ($@) {

Received on Thursday, 2 August 2007 04:58:07 UTC