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

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-05-16 12:13:05 +0100 (Sun, 16 May 2010)
New Revision: 9391

Modified:
   SQL-Abstract/1.x/branches/carp_debug/t/01generate.t
Log:
Better diag

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:09:53 UTC (rev 9390)
+++ SQL-Abstract/1.x/branches/carp_debug/t/01generate.t	2010-05-16 11:13:05 UTC (rev 9391)
@@ -130,5 +130,8 @@
 $Data::Dumper::Sortkeys = 1;
 diag Dumper {
   perl_ver => $],
-  inc => \%INC,
+  inc => { map
+    { my ($m) = $_ =~ /(.+)\.pm$/; $m =~ s/\//::/g; $m => $m->VERSION || 'N/A' }
+    (keys %INC)
+  },
 };