X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst.pm;h=9b8f706587b2f8d4634aff9e0f2c023a26055c04;hp=01b9e8d4ad9132ca9a2e1e8089ef180839b0a1a1;hb=fe958228637b4d263d563f64303d1511176ac545;hpb=59c2b3bd20a496dceafecff5e231e46af51e8a69

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index 01b9e8d..9b8f706 100644
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -43,7 +43,7 @@ our $CATALYST_SCRIPT_GEN = 10;
 __PACKAGE__->mk_classdata($_)
   for qw/components arguments dispatcher engine log/;
 
-our $VERSION = '5.49_02';
+our $VERSION = '5.49_03';
 
 sub import {
     my ( $class, @arguments ) = @_;
@@ -1563,12 +1563,7 @@ sub setup_log {
         $class->log( Catalyst::Log->new );
     }
 
-    
-    if ( $ENV{CATALYST_DEBUG} || 
-         $ENV{ Catalyst::Utils->class2env($class) . '_DEBUG' } || 
-         $debug  &&
-         $ENV{CATALYST_DEBUG} != 0 && 
-         $ENV{ Catalyst::Utils->class2env($class).'_DEBUG' } != 0 ) {
+    if ( $ENV{CATALYST_DEBUG} || $ENV{ uc($class) . '_DEBUG' } || $debug ) {
         no strict 'refs';
         *{"$class\::debug"} = sub { 1 };
         $class->log->debug('Debug messages enabled');