diff options
| author | link <link@localhost> | 2001-04-17 03:26:33 +0000 |
|---|---|---|
| committer | link <link@localhost> | 2001-04-17 03:26:33 +0000 |
| commit | 3dadcfd040e65b0689a48d038aaa7f675083c166 (patch) | |
| tree | 7d851e8b24e5819e999158f8a7f0534006d670c5 | |
| parent | f7f74def4f94250cc9d068992bcd501e45adc84e (diff) | |
| download | markup-validator-3dadcfd040e65b0689a48d038aaa7f675083c166.zip markup-validator-3dadcfd040e65b0689a48d038aaa7f675083c166.tar.gz markup-validator-3dadcfd040e65b0689a48d038aaa7f675083c166.tar.bz2 | |
Validation results URL broke for some reason (bitrot or lstein?). Fixed by
using $q->url instead of $q->self_url (aka. "Voodoo Programming"). :-)
<URL:http://lists.w3.org/Archives/Public/www-validator/2001AprJun/0052.html>
| -rwxr-xr-x | httpd/cgi-bin/check | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/httpd/cgi-bin/check b/httpd/cgi-bin/check index 078e8e8..d66005e 100755 --- a/httpd/cgi-bin/check +++ b/httpd/cgi-bin/check @@ -8,7 +8,7 @@ # This source code is available under the license at: # http://www.w3.org/Consortium/Legal/copyright-software # -# $Id: check,v 1.92 2001-04-17 02:29:36 link Exp $ +# $Id: check,v 1.93 2001-04-17 03:26:33 link Exp $ # # We need Perl 5.004. @@ -74,9 +74,9 @@ my $element_ref = 'http://www.htmlhelp.com/reference/html40/'; # # Strings -$VERSION = q$Revision: 1.92 $; +$VERSION = q$Revision: 1.93 $; $VERSION =~ s/Revision: ([\d\.]+) /$1/; -$DATE = q$Date: 2001-04-17 02:29:36 $; +$DATE = q$Date: 2001-04-17 03:26:33 $; $MAINTAINER = 'gerald@w3.org'; $NOTICE = ''; # "<p><strong>Note: This service will be ...</strong>"; @@ -755,7 +755,7 @@ EOHD } unless ($q->param('uploaded_file')) { - my $thispage = $q->self_url; + my $thispage = $q->url(-query => 1); &output_css_validator_blurb($q->param('uri')); |