r1263@llin: dpavlin | 2007-05-27 14:36:00 +0200

[webpac2] / lib / WebPAC / Store.pm

diff --git a/lib/WebPAC/Store.pm b/lib/WebPAC/Store.pm
index 982ff6a..e9bbebc 100644 (file)
--- a/lib/WebPAC/Store.pm
+++ b/lib/WebPAC/Store.pm
@@ -229,7 +229,7 @@ sub save_ds {
        my $args = {@_};
 
        my $log = $self->_get_logger;
-       $log->debug("save_ds arguments:", dump( \@_ ));
+       $log->debug("save_ds arguments:", sub { dump( \@_ ) });
 
        foreach my $f (qw/id ds/) {
                $log->logconfess("need $f") unless (defined($args->{$f}));