fix SYNOPSIS bug (thanks Mithaldu)
Arthur Axel 'fREW' Schmidt [Fri, 11 Jan 2013 16:24:08 +0000 (10:24 -0600)]
lib/Log/Contextual.pm

index e5ea999..b33097d 100644 (file)
@@ -179,9 +179,11 @@ Log::Contextual - Simple logging interface with a contextual log
      levels => [qw( trace debug )]
    });
 
+   my @args = @_;
+
    with_logger $minilogger => sub {
      log_trace { 'foo entered' };
-     my ($foo, $bar) = Dlog_trace { "params for foo: $_" } @_;
+     my ($foo, $bar) = Dlog_trace { "params for foo: $_" } @args;
      # ...
      log_trace { 'foo left' };
    };