[Bast-commits] r9392 - SQL-Abstract/1.x/branches/carp_debug/t

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-05-16 12:15:35 +0100 (Sun, 16 May 2010)
New Revision: 9392

Modified:
   SQL-Abstract/1.x/branches/carp_debug/t/01generate.t
Log:
5.8 fix

Modified: SQL-Abstract/1.x/branches/carp_debug/t/01generate.t
===================================================================
--- SQL-Abstract/1.x/branches/carp_debug/t/01generate.t	2010-05-16 11:13:05 UTC (rev 9391)
+++ SQL-Abstract/1.x/branches/carp_debug/t/01generate.t	2010-05-16 11:15:35 UTC (rev 9392)
@@ -131,7 +131,15 @@
 diag Dumper {
   perl_ver => $],
   inc => { map
-    { my ($m) = $_ =~ /(.+)\.pm$/; $m =~ s/\//::/g; $m => $m->VERSION || 'N/A' }
+    {
+      if (my ($m) = $_ =~ /(.+)\.pm$/) {
+        $m =~ s/\//::/g;
+        ($m => $m->VERSION || 'N/A') 
+      }
+      else {
+        ($_ => $INC{$_})
+      }
+    }
     (keys %INC)
   },
 };