validator/httpd/cgi-bin check,1.338,1.339

• From: Bjoern Hoehrmann <bjoern@dev.w3.org>
• Date: Wed, 08 Sep 2004 17:21:07 +0000
• To: www-validator-cvs@w3.org
• Message-ID: <E1C5683-0002Uq-BC@lionel-hutz.w3.org>

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

Modified Files:
	check 
Log Message:
fix for http://www.w3.org/Bugs/Public/show_bug.cgi?id=45 and http://www.w3.org/Bugs/Public/show_bug.cgi?id=84

Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.338
retrieving revision 1.339
diff -u -d -r1.338 -r1.339
--- check	8 Sep 2004 16:10:56 -0000	1.338
+++ check	8 Sep 2004 17:21:05 -0000	1.339
@@ -749,6 +749,10 @@
   # Rewind temporary filehandles.
   seek $_, 0, 0 for $spout, $sperr;
 
+  #
+  # Proper text mode for Win32 systems
+  binmode($spout, ':crlf') if $^O eq "MSWin32";
+
   $File = &parse_errors($File, $sperr); # Parse error output.
   undef $sperr; # Get rid of no longer needed filehandle.
 
@@ -1517,6 +1521,11 @@
 
   $File->{Errors} = []; # Initialize to an (empty) anonymous array ref.
   for (<$fh>) {
+
+    # remove SGML Parser path if it contains colons
+    s/^\Q$CFG->{Paths}->{SGML}->{Parser}\E// if
+         $CFG->{Paths}->{SGML}->{Parser} =~ /:/;
+    
     push @{$File->{'DEBUG'}->{Errors}}, $_;
     chomp;
     my($err, @errors);

Received on Wednesday, 8 September 2004 17:21:07 UTC