r1322@llin: dpavlin | 2007-09-03 16:44:01 +0200

[webpac2] / lib / WebPAC / Search / Estraier.pm

diff --git a/lib/WebPAC/Search/Estraier.pm b/lib/WebPAC/Search/Estraier.pm
index 61c0024..ed9e494 100644 (file)
--- a/lib/WebPAC/Search/Estraier.pm
+++ b/lib/WebPAC/Search/Estraier.pm
@@ -5,7 +5,7 @@ use strict;
 
 use Search::Estraier;
 use Encode qw/from_to/;
-use Data::Dumper;
+use Data::Dump qw/dump/;
 
 =head1 NAME
 
@@ -135,7 +135,7 @@ sub search {
 
        my $log = $self->_get_logger;
 
-       #$log->debug( 'search args: ' . Dumper($args) );
+       #$log->debug( 'search args: ', dump($args) );
 
        $self->confess('need db in object') unless ($self->{db});
        $self->confess('need get_attr') unless ($args->{get_attr});
@@ -144,7 +144,7 @@ sub search {
 
        my $q = $args->{phrase};
 
-       $log->debug("args: " . Dumper( $args ));
+       $log->debug("args: ", dump( $args ));
 
        my $cond = Search::Estraier::Condition->new();
        if ( ref($args->{add_attr}) eq 'ARRAY' ) {
@@ -169,7 +169,7 @@ sub search {
        $cond->set_max( $page * $max );
 
        my $result = $self->{db}->search($cond, ( $args->{depth} || 0 )) ||
-               $log->logdie("can't search for ", sub { Dumper( $args ) });
+               $log->logdie("can't search for ", sub { dump( $args ) });
 
        my $hits = $result->doc_num;
        $log->debug("found $hits hits for '$q'");
@@ -199,7 +199,7 @@ sub search {
 
        }
 
-#      $log->debug("results " . Dumper( \@results ));
+#      $log->debug("results " . dump( \@results ));
 
        $self->confess("expected to return array") unless (wantarray);