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

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2009-01-31 18:39:54 +0000 (Sat, 31 Jan 2009)
New Revision: 9152

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm
Log:
Disallow calling setup more than once.

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm	2009-01-30 18:34:32 UTC (rev 9151)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm	2009-01-31 18:39:54 UTC (rev 9152)
@@ -923,8 +923,8 @@
 
 sub setup {
     my ( $class, @arguments ) = @_;
-    $class->log->warn("Running setup twice is not a good idea.")
-      if ( $class->setup_finished );
+    croak('Running setup more than once')
+        if ( $class->setup_finished );
 
     unless ( $class->isa('Catalyst') ) {