use Storable qw/dclone/;
use Pod::Usage qw/pod2usage/;
-use Proc::Queue size => 1;
use POSIX ":sys_wait_h"; # imports WNOHANG
=head1 NAME
my @links;
if ($parallel) {
+ eval 'use Proc::Queue size => 1;';
+ die $@ if $@;
$log->info("Using $parallel processes for speedup");
Proc::Queue::size($parallel);
}
$log->info("database $database doesn't have inputs defined");
} );
- if ( -e 'out/debug' ) { # fixme flag?
+ if ( -e 'out/debug' ) { # FIXME flag?
my $out;
foreach my $i ( @inputs ) {
warn dump( $i );
my $input_db = new WebPAC::Input(
module => $input_module,
- encoding => $config->webpac('webpac_encoding'),
limit => $limit || $input->{limit},
offset => $offset,
recode => $input->{recode},
my $maxmfn = $input_db->open(
path => $input->{path},
- code_page => $input->{encoding}, # database encoding
+ input_encoding => $input->{encoding}, # database encoding
lookup_coderef => $lookup_coderef,
lookup => $lookup_jar,
%{ $input },
close($report_fh) if ($report_fh);
}
- eval { $indexer->finish } if ($indexer && $indexer->can('finish'));
+ $indexer->finish if $indexer && $indexer->can('finish');
foreach my $out ( @output_modules ) {
$out->finish if $out->can('finish');