- From: Ville Skytta <ville@dev.w3.org>
- Date: Sat, 13 Nov 2004 15:52:38 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/validator/httpd/cgi-bin
In directory hutz:/tmp/cvs-serv18195
Modified Files:
check
Log Message:
Use HTTP::Request::uri() instead of url(). The latter is undocumented since
LWP 5.51 and marked legacy since LWP 5.74.
Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.356
retrieving revision 1.357
diff -u -d -r1.356 -r1.357
--- check 13 Nov 2004 15:40:46 -0000 1.356
+++ check 13 Nov 2004 15:52:36 -0000 1.357
@@ -1221,7 +1221,7 @@
unless ($res->code == 200 || $File->{Opt}->{'No200'}) {
if ($res->code == 401) {
my %auth = $res->www_authenticate(); # HTTP::Headers::Auth
- &authenticate($File, $res->request->url, \%auth);
+ &authenticate($File, $res->request->uri, \%auth);
} else {
$File->{'Error Flagged'} = TRUE;
$File->{'Error Message'} = &http_error($uri->as_string, $res->code, $res->message);
@@ -1233,7 +1233,7 @@
= &parse_content_type(
$File,
$res->header('Content-Type'),
- scalar($res->request->url),
+ scalar($res->request->uri),
);
my $lastmod = undef;
@@ -1248,7 +1248,7 @@
$File->{Modified} = $lastmod;
$File->{Server} = &ent(scalar $res->server);
$File->{Size} = scalar $res->content_length;
- $File->{URI} = scalar $res->request->url;
+ $File->{URI} = scalar $res->request->uri;
$File->{'Is Upload'} = FALSE;
return $File;
Received on Saturday, 13 November 2004 15:52:38 UTC