[Catalyst-commits] r7623 - in trunk/Catalyst-Plugin-ConfigLoader: . lib/Catalyst/Plugin

[bricas at dev.catalyst.perl.org]

Author: bricas
Date: 2008-04-22 20:35:28 +0100 (Tue, 22 Apr 2008)
New Revision: 7623

Modified:
   trunk/Catalyst-Plugin-ConfigLoader/Changes
   trunk/Catalyst-Plugin-ConfigLoader/lib/Catalyst/Plugin/ConfigLoader.pm
Log:
die() instead of silently skip files with extensions we can't handle

Modified: trunk/Catalyst-Plugin-ConfigLoader/Changes
===================================================================
--- trunk/Catalyst-Plugin-ConfigLoader/Changes	2008-04-21 16:01:08 UTC (rev 7622)
+++ trunk/Catalyst-Plugin-ConfigLoader/Changes	2008-04-22 19:35:28 UTC (rev 7623)
@@ -1,8 +1,9 @@
 Revision history for Perl extension Catalyst::Plugin::ConfigLoader.
 
-    - Updated pod with new example
 0.20  Wed Feb 06 2008
     - sort configs by filename for loading (RT #31498)
+    - Updated pod with new example
+    - die() instead of silently skip files with extensions we can't handle
 
 0.19  Wed Nov 21 2007
     - fixed suffix appending to explicit config paths

Modified: trunk/Catalyst-Plugin-ConfigLoader/lib/Catalyst/Plugin/ConfigLoader.pm
===================================================================
--- trunk/Catalyst-Plugin-ConfigLoader/lib/Catalyst/Plugin/ConfigLoader.pm	2008-04-21 16:01:08 UTC (rev 7622)
+++ trunk/Catalyst-Plugin-ConfigLoader/lib/Catalyst/Plugin/ConfigLoader.pm	2008-04-22 19:35:28 UTC (rev 7623)
@@ -126,7 +126,8 @@
 
     my @files;
     if ( $extension ) {
-        next unless grep { $_ eq $extension } @extensions;
+        die "Unable to handle files with the extension '${extension}'"
+            unless grep { $_ eq $extension } @extensions;
         ( my $local = $path ) =~ s{\.$extension}{_$suffix.$extension};
         push @files, $path, $local;
     }