validator/httpd/cgi-bin check,1.386,1.387

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

Modified Files:
	check 
Log Message:
CGI.pm requires $q->http('header') instead of $res->{'header') in LWP.
(I don't want to know how long we've had this bug!)


Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.386
retrieving revision 1.387
diff -u -d -r1.386 -r1.387
--- check	4 Feb 2005 21:03:07 -0000	1.386
+++ check	4 Feb 2005 21:05:54 -0000	1.387
@@ -1376,9 +1376,9 @@
   $File->{Mode}            = $mode;
   $File->{ContentType}     = $ct;
   $File->{Charset}->{HTTP} = lc $charset;
-  $File->{Modified}        = $h->{'Last-Modified'};
-  $File->{Server}          = $h->{'User-Agent'}; # Fake a "server". :-)
-  $File->{Size}            = $h->{'Content-Length'};
+  $File->{Modified}        = $q->http('Last-Modified');
+  $File->{Server}          = $q->http('User-Agent'); # Fake a "server". :-)
+  $File->{Size}            = $q->http('Content-Length');
   $File->{URI}             = "$f"; # Need to stringify because we want ref
                                    # to return false later in add_table.  This
                                    # is also a file handle... see man CGI.

Received on Friday, 4 February 2005 21:05:56 UTC