[Bast-commits] r9543 - DBIx-Class/0.08/trunk/t/lib/DBICTest

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-06-02 11:43:30 +0100 (Wed, 02 Jun 2010)
New Revision: 9543

Modified:
   DBIx-Class/0.08/trunk/t/lib/DBICTest/AuthorCheck.pm
Log:
Really fix uninit warning

Modified: DBIx-Class/0.08/trunk/t/lib/DBICTest/AuthorCheck.pm
===================================================================
--- DBIx-Class/0.08/trunk/t/lib/DBICTest/AuthorCheck.pm	2010-06-02 09:55:48 UTC (rev 9542)
+++ DBIx-Class/0.08/trunk/t/lib/DBICTest/AuthorCheck.pm	2010-06-02 10:43:30 UTC (rev 9543)
@@ -31,7 +31,7 @@
 
   # not using file->stat as it invokes File::stat which in turn breaks stat(_)
   my ($mf_pl_mtime, $mf_mtime, $optdeps_mtime) = ( map
-    { (stat ($root->file ($_)) )[9] }
+    { (stat ($root->file ($_)) )[9] || undef }  # stat returns () on nonexistent files
     (qw|Makefile.PL  Makefile|, $optdeps)
   );