X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst.pm;fp=lib%2FCatalyst.pm;h=fef863b6f94bb71f8e7d94121a7a530735ade7fd;hb=cbffbe250eaffd02bf5af63b4869ae07f1057e1c;hp=27326703a933c9b2552a0ee9ac93c8a13cecac93;hpb=66ef16798266544a462bc6f0250cc693caec47ed;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm index 2732670..fef863b 100755 --- a/lib/Catalyst.pm +++ b/lib/Catalyst.pm @@ -1250,9 +1250,12 @@ EOF $class->log->warn($class . "->config->{case_sensitive} is set."); $class->log->warn("This setting is deprecated and planned to be removed in Catalyst 5.81."); } - + $class->setup_finalize; + # Flush the log for good measure (in case something turned off 'autoflush' early) + $class->log->_flush() if $class->log->can('_flush'); + return $class || 1; # Just in case someone named their Application 0... } @@ -2945,7 +2948,7 @@ sub setup_log { unless ( $class->log ) { $class->log( Catalyst::Log->new(keys %levels) ); } - + if ( $levels{debug} ) { Class::MOP::get_metaclass_by_name($class)->add_method('debug' => sub { 1 }); $class->log->debug('Debug messages enabled');