[Catalyst-commits] r9151 - Catalyst-Runtime/5.80/trunk/lib

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2009-01-30 18:34:32 +0000 (Fri, 30 Jan 2009)
New Revision: 9151

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm
Log:
Disallow writing to config after setup.

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm	2009-01-30 17:26:27 UTC (rev 9150)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm	2009-01-30 18:34:32 UTC (rev 9151)
@@ -805,8 +805,8 @@
     my $orig = shift;
     my $c = shift;
 
-    $c->log->warn("Setting config after setup has been run is not a good idea.")
-      if ( @_ and $c->setup_finished );
+    croak('Setting config after setup has been run is not allowed.')
+        if ( @_ and $c->setup_finished );
 
     $c->$orig(@_);
 };