W3C home > Mailing lists > Public > www-validator-cvs@w3.org > November 2006

validator/misc docs_errors.pl,1.3,1.3.2.1

From: Olivier Thereaux via cvs-syncmail <cvsmail@w3.org>
Date: Tue, 14 Nov 2006 06:27:36 +0000
To: www-validator-cvs@w3.org
Message-Id: <E1Gjrlg-0006Sj-8A@lionel-hutz.w3.org>

Update of /sources/public/validator/misc
In directory hutz:/tmp/cvs-serv24747

Modified Files:
      Tag: validator-0_7-branch
	docs_errors.pl 
Log Message:
Config::General <msg 0> workarounds

Index: docs_errors.pl
===================================================================
RCS file: /sources/public/validator/misc/docs_errors.pl,v
retrieving revision 1.3
retrieving revision 1.3.2.1
diff -u -d -r1.3 -r1.3.2.1
--- docs_errors.pl	18 Mar 2005 06:44:14 -0000	1.3
+++ docs_errors.pl	14 Nov 2006 06:27:33 -0000	1.3.2.1
@@ -67,8 +67,18 @@
 
 # Read error message + explanations file
 our $error_messages_file =  File::Spec->catfile($CFG->{Paths}->{Templates}, $lang, 'error_messages.cfg');
-our %config_errs = (-ConfigFile => $error_messages_file);
+our %config_errs = ( -MergeDuplicateBlocks => 1,
+        -ConfigFile => $error_messages_file);
 our %rsrc = Config::General->new(%config_errs)->getall();
+# Config::General workarounds for <msg 0> issues:
+# http://lists.w3.org/Archives/Public/public-qa-dev/2006Feb/0022.html
+# http://lists.w3.org/Archives/Public/public-qa-dev/2006Feb/0025.html
+# https://rt.cpan.org/Public/Bug/Display.html?id=17852
+$rsrc{msg}{0} ||=
+  delete($rsrc{'msg 0'}) ||                   # < 2.31
+  { original => delete($rsrc{msg}{original}), #   2.31
+    verbose  => delete($rsrc{msg}{verbose}),
+  };
 $RSRC = \%rsrc;
 
 
Received on Tuesday, 14 November 2006 06:27:49 GMT

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