s/C<CGI>/L<CGI>/

[catagits/Catalyst-Runtime.git] / lib / Catalyst.pm

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index 01b9e8d..9b8f706 100644 (file)
--- 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');