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

perl/modules/W3C/LogValidator/lib/W3C/LogValidator Config.pm,1.12,1.13

From: Olivier Thereaux via cvs-syncmail <cvsmail@w3.org>
Date: Fri, 14 Nov 2008 15:17:22 +0000
To: www-validator-cvs@w3.org
Message-Id: <E1L10QE-0003El-8j@lionel-hutz.w3.org>

Update of /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator
In directory hutz:/tmp/cvs-serv12429/lib/W3C/LogValidator

Modified Files:
	Config.pm 
Log Message:
patch for compatibility with perl 5.10, courtesy of Colm Dougan

Index: Config.pm
===================================================================
RCS file: /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator/Config.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- Config.pm	24 Jul 2007 06:08:11 -0000	1.12
+++ Config.pm	14 Nov 2008 15:17:20 -0000	1.13
@@ -164,7 +164,7 @@
 	if (exists($tmpconf{CustomLog}))
 	{
 		# if there are several log files, $tmpconf{CustomLog} is an array
-		if (defined @{ $tmpconf{CustomLog} })
+    if (ref($tmpconf{CustomLog}) eq 'ARRAY')
 		{ 
 		   foreach my $customlog (@{ $tmpconf{CustomLog} })
 		   {
Received on Friday, 14 November 2008 15:17:35 UTC

This archive was generated by hypermail 2.3.1 : Wednesday, 7 January 2015 15:17:34 UTC