diff options
| author | gerald <gerald@localhost> | 1999-12-06 00:27:50 +0000 |
|---|---|---|
| committer | gerald <gerald@localhost> | 1999-12-06 00:27:50 +0000 |
| commit | b5838de45909fc78424b709e80576900f6283808 (patch) | |
| tree | 6454bb286ae12d8b049d347413cae73f15dd61b3 | |
| parent | 74fdcb17e2cd80f0b684cb1126f5fbd3298b7f7e (diff) | |
| download | markup-validator-b5838de45909fc78424b709e80576900f6283808.zip markup-validator-b5838de45909fc78424b709e80576900f6283808.tar.gz markup-validator-b5838de45909fc78424b709e80576900f6283808.tar.bz2 | |
incorporates a patch from Terje Bless to fix a couple small bugs
introduced with previous patches:
http://lists.w3.org/Archives/Public/www-validator/1999OctDec/0150
| -rwxr-xr-x | httpd/cgi-bin/check | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/httpd/cgi-bin/check b/httpd/cgi-bin/check index 8b0fd5b..fbbe98a 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.52 1999-12-06 00:26:23 gerald Exp $ +# $Id: check,v 1.53 1999-12-06 00:27:50 gerald Exp $ # # We need Perl 5.004. @@ -73,9 +73,9 @@ my $element_ref = 'http://www.htmlhelp.com/reference/html40/'; # # Strings -$VERSION = q$Revision: 1.52 $; +$VERSION = q$Revision: 1.53 $; $VERSION =~ s/Revision: ([\d\.]+) /$1/; -$DATE = q$Date: 1999-12-06 00:26:23 $; +$DATE = q$Date: 1999-12-06 00:27:50 $; $MAINTAINER = 'gerald@w3.org'; my $notice = ''; # "<p><strong>Note: This service will be ...</strong>"; @@ -1199,7 +1199,7 @@ sub handle_uri { return {Content => &normalize_newlines($res->content), Type => $type, HTTP_Charset => $charset, - Modified => gmtime($res->last_modified), + Modified => scalar(gmtime($res->last_modified)), Server => $res->server, Size => $res->content_length, URI => $res->request->url}; @@ -1241,7 +1241,7 @@ sub parse_content_type { my($p, $v) = split /\s*=\s*/, $param; next unless $p =~ m(charset)i; if ($v =~ m/([\'\"]?)(\S+)\1/i) { - $charset = lc $1; + $charset = lc $2; last; } } |