16 |
|
|
17 |
use KinoSearch::Simple; |
use KinoSearch::Simple; |
18 |
use File::Path; |
use File::Path; |
19 |
use Encode qw/from_to/; |
use Encode qw/decode/; |
20 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
21 |
use Storable; |
use Storable; |
22 |
|
|
148 |
if ( ref($hash->{$f}) eq 'ARRAY' ) { |
if ( ref($hash->{$f}) eq 'ARRAY' ) { |
149 |
$hash->{$f} = join(' <*> ', @{ $hash->{$f} }); |
$hash->{$f} = join(' <*> ', @{ $hash->{$f} }); |
150 |
} |
} |
151 |
|
# $hash->{$f} = decode( $self->encoding, $hash->{$f} ); |
152 |
} |
} |
153 |
|
|
154 |
$log->debug("add( $id, ", sub { dump($ds) }," ) => ", sub { dump( $hash ) }); |
$log->debug("add( $id, ", sub { dump($ds) }," ) => ", sub { dump( $hash ) }); |