diff options
| author | ot <ot@localhost> | 2006-11-15 08:02:47 +0000 |
|---|---|---|
| committer | ot <ot@localhost> | 2006-11-15 08:02:47 +0000 |
| commit | 2ad8eb26583a11ef0238795ec383c2af7c9c71aa (patch) | |
| tree | d88fc7caaece1ac785aaee393f47afa9c4e8c811 /misc/docs_errors.pl | |
| parent | f1e59a304888f91dea554e881a7b9f053fdc56fa (diff) | |
| download | markup-validator-2ad8eb26583a11ef0238795ec383c2af7c9c71aa.zip markup-validator-2ad8eb26583a11ef0238795ec383c2af7c9c71aa.tar.gz markup-validator-2ad8eb26583a11ef0238795ec383c2af7c9c71aa.tar.bz2 | |
Hand merge of branch 0.7 with HEAD at tag validator-0_7_4-release
Diffstat (limited to 'misc/docs_errors.pl')
| -rwxr-xr-x | misc/docs_errors.pl | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/misc/docs_errors.pl b/misc/docs_errors.pl index 1b2b0fe..79221a2 100755 --- a/misc/docs_errors.pl +++ b/misc/docs_errors.pl @@ -2,7 +2,7 @@ ## ## Generates HTML documentation of error messages and explanations ## for W3C Markup Validation Service -## $Id: docs_errors.pl,v 1.3 2005-03-18 06:44:14 ot Exp $ +## $Id: docs_errors.pl,v 1.4 2006-11-15 08:02:46 ot Exp $ ## Pragmas. use strict; @@ -67,8 +67,18 @@ our $lang = 'en_US'; # @@@ TODO: conneg # 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; |