From: Brian Cassidy <bricas@cpan.org>
Date: Wed, 21 Nov 2007 18:48:37 +0000 (+0000)
Subject: warn a little louder
X-Git-Tag: v0.19~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Plugin-ConfigLoader.git;a=commitdiff_plain;h=77d8f18efb06908c59aa3affabc0d98b7b6ce370

warn a little louder
---

diff --git a/Changes b/Changes
index 0a04f8a..505effa 100644
--- 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
--- 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 );
         );
     }