[Catalyst-commits] r8150 - in trunk/Config-Any: . lib/Config

[marcus at dev.catalyst.perl.org]

Author: marcus
Date: 2008-07-23 08:29:40 +0100 (Wed, 23 Jul 2008)
New Revision: 8150

Modified:
   trunk/Config-Any/Changes
   trunk/Config-Any/lib/Config/Any.pm
Log:
Show actual parse errors

Modified: trunk/Config-Any/Changes
===================================================================
--- trunk/Config-Any/Changes	2008-07-22 21:26:55 UTC (rev 8149)
+++ trunk/Config-Any/Changes	2008-07-23 07:29:40 UTC (rev 8150)
@@ -1,5 +1,7 @@
 Revision history for Config-Any
 
+    - Show actual parse error when parse fails (Marcus Ramberg).
+
 0.12 Mon 07 Apr 2008
     - ensure Perl loader dies on a failed require() (RT #32995)
 

Modified: trunk/Config-Any/lib/Config/Any.pm
===================================================================
--- trunk/Config-Any/lib/Config/Any.pm	2008-07-22 21:26:55 UTC (rev 8149)
+++ trunk/Config-Any/lib/Config/Any.pm	2008-07-23 07:29:40 UTC (rev 8150)
@@ -159,6 +159,7 @@
     }
 
     my @results;
+			warn $@ if $@;
 
     for my $filename ( @{ $args->{ files } } ) {
 
@@ -179,7 +180,7 @@
                 = eval { $loader->load( $filename, $loader_args{ $loader } ); };
 
             # fatal error if we used extension matching
-            croak "Error parsing file: $filename" if $@ and $use_ext_lut;
+            croak "Error parsing $filename: $@" if $@ and $use_ext_lut;
             next if $@ or !@configs;
 
             # post-process config with a filter callback