- From: Olivier Thereaux via cvs-syncmail <cvsmail@w3.org>
- Date: Tue, 14 Nov 2006 06:27:36 +0000
- To: www-validator-cvs@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 UTC