From: Henry Van Styn <vanstyn@intellitree.com>
Date: Mon, 12 May 2014 20:30:35 +0000 (-0400)
Subject: Catalyst::Log::_log correct return value
X-Git-Tag: 5.90065~5
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=31213ebcb811c9c11e004ebefac1f6f9aca2ea3d

Catalyst::Log::_log correct return value
---

diff --git a/lib/Catalyst/Log.pm b/lib/Catalyst/Log.pm
index 85613e3..2418302 100755
--- a/lib/Catalyst/Log.pm
+++ b/lib/Catalyst/Log.pm
@@ -108,8 +108,9 @@ sub _log {
     my $self    = shift;
     my $level   = shift;
     my $message = join( "\n", @_ );
+    my $ret;
     if ($self->can('_has_psgi_logger') and $self->_has_psgi_logger) {
-        $self->_psgi_logger->({
+        $ret = $self->_psgi_logger->({
                 level => $level,
                 message => $message,
             });
@@ -117,11 +118,12 @@ sub _log {
         $message .= "\n" unless $message =~ /\n$/;
         my $body = $self->_body;
         $body .= sprintf( "[%s] %s", $level, $message );
-        $self->_body($body);
+        $ret = $self->_body($body);
     }
     if( $self->autoflush && !$self->abort ) {
       $self->_flush;
     }
+    return $ret;
 }
 
 sub _flush {