- From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
- Date: Sun, 04 Jan 2009 10:41:22 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/validator/misc
In directory hutz:/tmp/cvs-serv26347/misc
Modified Files:
docs_errors.pl
Log Message:
Use File::Spec::Functions for somewhat more compact code.
Index: docs_errors.pl
===================================================================
RCS file: /sources/public/validator/misc/docs_errors.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- docs_errors.pl 17 Oct 2007 18:11:24 -0000 1.7
+++ docs_errors.pl 4 Jan 2009 10:41:20 -0000 1.8
@@ -11,8 +11,9 @@
## Modules. See also the BEGIN block further down below.
-use HTML::Template 2.6 qw();
-use Config::General 2.19 qw(); # Need 2.19 for -AutoLaunder
+use File::Spec::Functions qw(catfile);
+use HTML::Template 2.6 qw();
+use Config::General 2.19 qw(); # Need 2.19 for -AutoLaunder
use vars qw($DEBUG $CFG $RSRC $VERSION $HAVE_IPC_RUN);
# Define global constants
@@ -64,7 +65,7 @@
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 $error_messages_file = catfile($CFG->{Paths}->{Templates}, $lang, 'error_messages.cfg');
our %config_errs = ( -MergeDuplicateBlocks => 1,
-ConfigFile => $error_messages_file);
our %rsrc = Config::General->new(%config_errs)->getall();
@@ -81,7 +82,7 @@
our $T = HTML::Template->new(
- filename => File::Spec->catfile($CFG->{Paths}->{Templates}, $lang, 'docs_errors.tmpl'),
+ filename => catfile($CFG->{Paths}->{Templates}, $lang, 'docs_errors.tmpl'),
die_on_bad_params => FALSE,
);
Received on Sunday, 4 January 2009 10:41:32 UTC