whoops. blew that change.

[catagits/Catalyst-Plugin-ConfigLoader.git] / lib / Catalyst / Plugin / ConfigLoader.pm

diff --git a/lib/Catalyst/Plugin/ConfigLoader.pm b/lib/Catalyst/Plugin/ConfigLoader.pm
index 9e4b8ad..5c2a61e 100644 (file)
--- 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;