diff options
| author | hugo <hugo@localhost> | 2000-08-04 23:20:43 +0000 |
|---|---|---|
| committer | hugo <hugo@localhost> | 2000-08-04 23:20:43 +0000 |
| commit | f76ba9ea1e4b2c2b3bd699ba0d1de93d81109fc0 (patch) | |
| tree | 10512e3c95d23a135401dffac71980dc2d8085ef | |
| parent | 6b53ec7850e65dd9bcf8c4f0a0b27dd7f44626bd (diff) | |
| download | markup-validator-f76ba9ea1e4b2c2b3bd699ba0d1de93d81109fc0.zip markup-validator-f76ba9ea1e4b2c2b3bd699ba0d1de93d81109fc0.tar.gz markup-validator-f76ba9ea1e4b2c2b3bd699ba0d1de93d81109fc0.tar.bz2 | |
Fixed a confusion in the use of URI::abs()
| -rwxr-xr-x | httpd/cgi-bin/checklink.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/httpd/cgi-bin/checklink.pl b/httpd/cgi-bin/checklink.pl index 113d52a..4031f7a 100755 --- a/httpd/cgi-bin/checklink.pl +++ b/httpd/cgi-bin/checklink.pl @@ -5,7 +5,7 @@ # (c) 1999-2000 World Wide Web Consortium # based on Renaud Bruyeron's checklink.pl # -# $Id: checklink.pl,v 2.61 2000-08-04 22:43:51 hugo Exp $ +# $Id: checklink.pl,v 2.62 2000-08-04 23:20:43 hugo Exp $ # # This program is licensed under the W3C(r) License: # http://www.w3.org/Consortium/Legal/copyright-software @@ -34,7 +34,7 @@ $| = 1; # Version info my $PROGRAM = 'W3C checklink'; -my $VERSION = q$Revision: 2.61 $ . '(c) 1999-2000 W3C'; +my $VERSION = q$Revision: 2.62 $ . '(c) 1999-2000 W3C'; my $REVISION; ($REVISION = $VERSION) =~ s/Revision: (\d+\.\d+) .*/$1/; # Different options specified by the user @@ -524,7 +524,7 @@ sub get_document() { # What URI are we processing by the way? my $base_uri = URI->new($response->base()); my $request_uri = URI->new($response->request->url); - $response->{absolute_uri} = $base_uri->abs($request_uri); + $response->{absolute_uri} = $request_uri->abs($base_uri); # Parse the document my $failed_reason; |