From: Marcus Ramberg Date: Thu, 3 Nov 2005 16:37:03 +0000 (+0000) Subject: revert to previous until I can fix it. X-Git-Tag: 5.7099_04~1034 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=f996b297d0612b70ae692aa1397571c358a4e53b revert to previous until I can fix it. --- diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm index 01b9e8d..66dd7d3 100644 --- a/lib/Catalyst.pm +++ b/lib/Catalyst.pm @@ -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');