22 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
23 |
use Storable qw/dclone/; |
use Storable qw/dclone/; |
24 |
use Pod::Usage qw/pod2usage/; |
use Pod::Usage qw/pod2usage/; |
25 |
use LWP::Simple; |
use LWP::Simple qw//; |
26 |
|
|
27 |
use POSIX ":sys_wait_h"; # imports WNOHANG |
use POSIX ":sys_wait_h"; # imports WNOHANG |
28 |
|
|
417 |
$base =~ s{/[^/]+$}{}; |
$base =~ s{/[^/]+$}{}; |
418 |
mkpath $base unless -e $base; |
mkpath $base unless -e $base; |
419 |
|
|
420 |
my $rc = mirror( "$mirror/$path", $path ); |
my $rc = LWP::Simple::mirror( "$mirror/$path", $path ); |
421 |
if (is_error( $rc )) { |
if (LWP::Simple::is_error( $rc )) { |
422 |
die "can't mirror $mirror/$path -> $path [$rc]"; |
die "can't mirror $mirror/$path -> $path [$rc]"; |
423 |
} else { |
} else { |
424 |
$log->info( "mirror ", $path, " [$rc] ", -s $path, " bytes" ); |
$log->info( "mirror ", $path, " [$rc] ", -s $path, " bytes" ); |
603 |
push @{ $row->{'000'} }, $pos; |
push @{ $row->{'000'} }, $pos; |
604 |
} |
} |
605 |
|
|
606 |
|
foreach my $out ( @output_modules ) { |
607 |
|
$out->add_row( $mfn, $row ) if $out->can('add_row'); |
608 |
|
} |
609 |
|
|
610 |
if ($validate) { |
if ($validate) { |
611 |
if ( my $errors = $validate->validate_rec( $row, $input_db->dump_ascii ) ) { |
if ( my $errors = $validate->validate_rec( $row, $input_db->dump_ascii ) ) { |