warn a little louder

diff --git a/Changes b/Changes
index 0a04f8a..505effa 100644 (file)
--- a/Changes
+++ b/Changes
@@ -3,6 +3,10 @@ Revision history for Perl extension Catalyst::Plugin::ConfigLoader.
 0.19  Wed Nov 21 2007
     - fixed suffix appending to explicit config paths
 
+    [NOTE]
+    - Deprecation notices scream a little louder and sleep for 3 seconds
+      as this should be the last release for them
+
 0.18  Sat Oct 13 2007
     - fix indentation on manual entry for DBIC::Schema config (Jeremy Wall)
       RT #29967

diff --git a/lib/Catalyst/Plugin/ConfigLoader.pm b/lib/Catalyst/Plugin/ConfigLoader.pm
index 50f3afe..25c700c 100644 (file)
--- a/lib/Catalyst/Plugin/ConfigLoader.pm
+++ b/lib/Catalyst/Plugin/ConfigLoader.pm
@@ -160,7 +160,8 @@ 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 );
         );
     }
 
@@ -207,7 +208,8 @@ 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 );
         );
     }