X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FPlugin%2FConfigLoader.pm;h=5c2a61e31064e566ca953192c8d7625a8be768a7;hb=25c714a2c1a38cfef5d75ac87160c56b5a1374d1;hp=9e4b8ade4ffa49a733b72f9a4a7cf5a76858a256;hpb=eb05f0bf6d2539d8bbcfb3c8c63a691c5bc0ecc9;p=catagits%2FCatalyst-Plugin-ConfigLoader.git

diff --git a/lib/Catalyst/Plugin/ConfigLoader.pm b/lib/Catalyst/Plugin/ConfigLoader.pm
index 9e4b8ad..5c2a61e 100644
--- a/lib/Catalyst/Plugin/ConfigLoader.pm
+++ b/lib/Catalyst/Plugin/ConfigLoader.pm
@@ -90,7 +90,7 @@ sub load_config {
     my $c   = shift;
     my $ref = shift;
 
-    my ( $file, $config ) = each %$ref;
+    my ( $file, $config ) = %$ref;
 
     $c->config( $config );
     $c->log->debug( qq(Loaded Config "$file") )
@@ -160,8 +160,9 @@ sub get_config_path {
     # deprecation notice
     if ( exists $c->config->{ file } ) {
         $c->log->warn(
-            q("file" config parameter has been deprecated in favor of "$c->config->{ 'Plugin::ConfigLoader' }->{ file }")
+            q(*** "file" config parameter has been deprecated in favor of "$c->config->{ 'Plugin::ConfigLoader' }->{ file }")
         );
+        sleep( 3 );
     }
 
     my $appname = ref $c || $c;
@@ -207,8 +208,9 @@ sub get_config_local_suffix {
     # deprecation notice
     if ( exists $c->config->{ config_local_suffix } ) {
         $c->log->warn(
-            q("config_local_suffix" config parameter has been deprecated in favor of "$c->config->{ 'Plugin::ConfigLoader' }->{ config_local_suffix }")
+            q(*** "config_local_suffix" config parameter has been deprecated in favor of "$c->config->{ 'Plugin::ConfigLoader' }->{ config_local_suffix }")
         );
+        sleep( 3 );
     }
 
     my $appname = ref $c || $c;