From: Marcus Ramberg <marcus@nordaaker.com>
Date: Sun, 6 Nov 2005 12:42:49 +0000 (+0000)
Subject: fix debug flag to handle disabling via ENV
X-Git-Tag: 5.7099_04~1010
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=71f074a986d7497a2e04319bdc2ea1f0a57702df

fix debug flag to handle disabling via ENV
---

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index 8470aba..34989bb 100644
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -1303,7 +1303,7 @@ sub setup_components {
             return $component;
         }
 
-        my $suffix = Catalyst::Utils::class2classsuffix($component);
+        my $suffix = Catalyst::Utils::class2classsuffix($class);
         my $config = $class->config->{$suffix} || {};
 
         my $instance;
@@ -1542,8 +1542,14 @@ sub setup_log {
     unless ( $class->log ) {
         $class->log( Catalyst::Log->new );
     }
+    
+    my $app_flag = Catalyst::Utils::class2env($class) . '_DEBUG';
+    warn "app: ".$app_flag;
 
-    if ( $ENV{CATALYST_DEBUG} || $ENV{ uc($class) . '_DEBUG' } || $debug ) {
+     if ( ( defined( $ENV{CATALYST_DEBUG} ) || 
+            defined( $ENV{ $app_flag } ) )  ? 
+	  (  $ENV{CATALYST_DEBUG} || $ENV{ $app_flag } ) :
+	  $debug ) {
         no strict 'refs';
         *{"$class\::debug"} = sub { 1 };
         $class->log->debug('Debug messages enabled');