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

 one less dump in debug mode

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@853 07558da8-63fa-0310-ba24-9fe276d99e06

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}));