Dont add \n for psgi logs(?)
Andreas Marienborg [Thu, 28 Feb 2013 14:30:15 +0000 (21:30 +0700)]
lib/Catalyst/Log.pm

index 382a3e9..249d284 100644 (file)
@@ -92,13 +92,13 @@ sub _log {
     my $self    = shift;
     my $level   = shift;
     my $message = join( "\n", @_ );
-    $message .= "\n" unless $message =~ /\n$/;
     if ($self->can('has_psgienv') and $self->has_psgienv and $self->psgienv->{'psgix.logger'}) {
         $self->psgienv->{'psgix.logger'}->({
                 level => $level,
                 message => $message,
             });
     } else {
+        $message .= "\n" unless $message =~ /\n$/;
         my $body = $self->_body;
         $body .= sprintf( "[%s] %s", $level, $message );
         $self->_body($body);