+ if ( $mirror ) {
+ my $path = $input->{path} || die "no input path in ",dump( $input );
+
+ my $base = $path;
+ $base =~ s{/[^/]+$}{};
+ mkpath $base unless -e $base;
+
+ my $rc = LWP::Simple::mirror( "$mirror/$path", $path );
+ if (LWP::Simple::is_error( $rc )) {
+ die "can't mirror $mirror/$path -> $path [$rc]";
+ } else {
+ $log->info( "mirror ", $path, " [$rc] ", -s $path, " bytes" );
+ }
+
+ }
+