- From: Mercurial notifier <nobody@w3.org>
- Date: Sat, 12 Mar 2011 13:20:33 +0000
- To: markup-validator updates <www-validator-cvs@w3.org>
changeset: 3214:1a0d7586fd5d tag: tip user: Ville Skyttä <ville.skytta@iki.fi> date: Sat Mar 12 15:20:20 2011 +0200 files: httpd/cgi-bin/check description: Avoid lc(undef) warnings with Perl >= 5.12. diff -r c2a8c311f2b4 -r 1a0d7586fd5d httpd/cgi-bin/check --- a/httpd/cgi-bin/check Thu Mar 10 22:48:10 2011 +0200 +++ b/httpd/cgi-bin/check Sat Mar 12 15:20:20 2011 +0200 @@ -1878,7 +1878,7 @@ $File->{ContentLang} = $res->content_language; $File->{ContentLoc} = $res->header('Content-Location'); $File->{TransferEnc} = $res->header('Client-Transfer-Encoding'); - $File->{Charset}->{HTTP} = lc $charset; + $File->{Charset}->{HTTP} = lc $charset if defined $charset; $File->{Modified} = $res->header('Last-Modified'); $File->{Server} = scalar $res->server; @@ -1921,7 +1921,7 @@ $File->{Bytes} = $file; $File->{Mode} = $mode; $File->{ContentType} = $ct; - $File->{Charset}->{HTTP} = lc $charset; + $File->{Charset}->{HTTP} = lc $charset if defined $charset; $File->{Modified} = $q->http('Last-Modified'); $File->{Server} = $q->http('User-Agent'); # Fake a "server". :-) $File->{Size} = $q->http('Content-Length');
Received on Saturday, 12 March 2011 13:20:35 UTC