We'll probably save the destination path somewhere, so
ensure the path doesn't have redundant slashes and such
index($dst, "\n") >= 0 and die "`\\n' not allowed in `$dst'";
# n.b. this is still a truckload of code...
index($dst, "\n") >= 0 and die "`\\n' not allowed in `$dst'";
# n.b. this is still a truckload of code...
require PublicInbox::LEI;
require PublicInbox::LeiExternal;
require PublicInbox::LeiMirror;
require PublicInbox::LEI;
require PublicInbox::LeiExternal;
require PublicInbox::LeiMirror;
my $mrr = bless {
lei => $lei,
src => $url,
my $mrr = bless {
lei => $lei,
src => $url,
+ dst => File::Spec->canonpath($dst),
}, 'PublicInbox::LeiMirror';
$? = 0;
}, 'PublicInbox::LeiMirror';
$? = 0;