diff options
| author | hugo <hugo@localhost> | 2000-09-25 17:38:35 +0000 |
|---|---|---|
| committer | hugo <hugo@localhost> | 2000-09-25 17:38:35 +0000 |
| commit | c198d7f9425faffcbeeb6717749bab267b952127 (patch) | |
| tree | 0302334edaa2ce67f835123210e02a23cb98e9a4 | |
| parent | 8f022087073e989cfa32b5e1586ed6ca7cff13ae (diff) | |
| download | markup-validator-c198d7f9425faffcbeeb6717749bab267b952127.zip markup-validator-c198d7f9425faffcbeeb6717749bab267b952127.tar.gz markup-validator-c198d7f9425faffcbeeb6717749bab267b952127.tar.bz2 | |
Undid change done in 2.62 about base tag handling.
I'm not really sure why I did this change in the first place, I might have
to fix a bug later...
| -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 22397e3..80ab14e 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.66 2000-08-17 15:10:31 hugo Exp $ +# $Id: checklink.pl,v 2.67 2000-09-25 17:38:35 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.66 $ . '(c) 1999-2000 W3C'; +my $VERSION = q$Revision: 2.67 $ . '(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} = $request_uri->abs($base_uri); + $response->{absolute_uri} = $base_uri->abs($request_uri); # Parse the document my $failed_reason; |