- From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
- Date: Sun, 04 Jan 2009 16:54:21 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/validator/httpd/cgi-bin
In directory hutz:/tmp/cvs-serv2862/httpd/cgi-bin
Modified Files:
check sendfeedback.pl
Log Message:
Purge Config::General <= 2.30 compatibility hack; 2.31 one still preserved for current Debian stable.
Index: sendfeedback.pl
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/sendfeedback.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- sendfeedback.pl 4 Jan 2009 10:41:20 -0000 1.9
+++ sendfeedback.pl 4 Jan 2009 16:54:19 -0000 1.10
@@ -13,7 +13,7 @@
use CGI qw();
use File::Spec::Functions qw(catfile);
use HTML::Template 2.6 qw();
-use Config::General 2.19 qw(); # Need 2.19 for -AutoLaunder
+use Config::General 2.31 qw(); # Need 2.31 for (partial) <msg 0> sanity
use vars qw($DEBUG $CFG $RSRC $VERSION $HAVE_IPC_RUN);
# Define global constants
@@ -73,13 +73,12 @@
-ConfigFile => catfile($CFG->{Paths}->{Templates}, $lang,
'error_messages.cfg'),
)->getall();
-# Config::General workarounds for <msg 0> issues:
+# Config::General 2.31 workaround 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
+ { original => delete($rsrc{msg}{original}),
verbose => delete($rsrc{msg}{verbose}),
};
$RSRC = \%rsrc;
Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.623
retrieving revision 1.624
diff -u -d -r1.623 -r1.624
--- check 4 Jan 2009 12:30:49 -0000 1.623
+++ check 4 Jan 2009 16:54:19 -0000 1.624
@@ -47,7 +47,7 @@
use CGI 2.81 qw(-newstyle_urls -private_tempfiles redirect);
use CGI::Carp qw(carp croak fatalsToBrowser);
-use Config::General 2.19 qw(); # Need 2.19 for -AutoLaunder
+use Config::General 2.31 qw(); # Need 2.31 for (partial) <msg 0> sanity
use Encode qw();
use Encode::Alias qw();
use Encode::HanExtra qw(); # for some chinese character encodings,
@@ -212,13 +212,12 @@
'error_messages.cfg'),
)->getall();
# 'en_US' should be replaced by $lang for lang-neg
-# Config::General workarounds for <msg 0> issues:
+# Config::General 2.31 workaround 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
+ { original => delete($rsrc{msg}{original}),
verbose => delete($rsrc{msg}{verbose}),
};
$RSRC = \%rsrc;
Received on Sunday, 4 January 2009 16:54:30 UTC