W3C home > Mailing lists > Public > www-validator-cvs@w3.org > July 2009

validator/httpd/cgi-bin check,1.675,1.676

From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
Date: Thu, 30 Jul 2009 17:06:40 +0000
To: www-validator-cvs@w3.org
Message-Id: <E1MWZ5V-0003nI-02@lionel-hutz.w3.org>
Update of /sources/public/validator/httpd/cgi-bin
In directory hutz:/tmp/cvs-serv14568

Modified Files:
	check 
Log Message:
Trivial find_encodings() cleanup.

Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.675
retrieving revision 1.676
diff -u -d -r1.675 -r1.676
--- check	30 Jul 2009 16:58:14 -0000	1.675
+++ check	30 Jul 2009 17:06:38 -0000	1.676
@@ -2874,12 +2874,12 @@
   foreach my $try (@first)
   {
     # @@FIXME I think the old code used HTML::Parser xml mode, check this is ok
-    my $meta = lc HTML::Encoding::encoding_from_meta_element($File->{Bytes}, $try);
-    $metah{$meta}++ if defined $meta and length $meta;
+    my $meta = HTML::Encoding::encoding_from_meta_element($File->{Bytes}, $try);
+    $metah{lc($meta)}++ if defined $meta and length $meta;
   }
 
   my @meta = sort { $metah{$b} <=> $metah{$a} } keys %metah;
-  $File->{Charset}->{META} = lc $meta[0] if @meta;
+  $File->{Charset}->{META} = $meta[0] if @meta;
 
   return $File;
 }
Received on Thursday, 30 July 2009 17:06:50 GMT

This archive was generated by hypermail 2.2.0+W3C-0.50 : Thursday, 26 April 2012 12:55:10 GMT