r1397@llin: dpavlin | 2007-10-31 01:38:40 +0100

[webpac2] / lib / WebPAC / Output / Sorted.pm

diff --git a/lib/WebPAC/Output/Sorted.pm b/lib/WebPAC/Output/Sorted.pm
index 63d90b2..69cbf61 100644 (file)
--- a/lib/WebPAC/Output/Sorted.pm
+++ b/lib/WebPAC/Output/Sorted.pm
@@ -81,7 +81,7 @@ sub add {
        $log->logdie("need id") unless defined $id;
        $log->logdie("need ds") unless $ds;
 
-       $log->debug("id: $id ds = ",dump($ds));
+       $log->debug("id: $id ds = ",sub { dump($ds) });
 
        my $hash = $self->ds_to_hash( $ds, 'sorted' ) || return;