--- trunk/lib/WebPAC/Output/KinoSearch.pm	2006/08/25 16:20:21	620
+++ trunk/lib/WebPAC/Output/KinoSearch.pm	2007/09/03 15:26:46	887
@@ -8,7 +8,7 @@
 use KinoSearch::InvIndexer;
 use KinoSearch::Analysis::PolyAnalyzer;
 use Encode qw/from_to/;
-use Data::Dumper;
+use Data::Dump qw/dump/;
 use Storable;
 
 =head1 NAME
@@ -80,7 +80,7 @@
 
 	my $log = $self->_get_logger;
 
-	#$log->debug("self: ", sub { Dumper($self) });
+	#$log->debug("self: ", sub { dump($self) });
 
 	foreach my $p (qw/index_path fields database/) {
 		$log->logdie("need $p") unless ($self->{$p});
@@ -185,7 +185,7 @@
 
 	_add_value($self,$log,$doc, 'uri', $uri);
 
-	$log->debug("ds = ", sub { Dumper($args->{'ds'}) } );
+	$log->debug("ds = ", sub { dump($args->{'ds'}) } );
 
 	# filter all tags which have type defined
 	my @tags = grep {