clone: drop unnecessary requires

[public-inbox.git] / script / public-inbox-clone

diff --git a/script/public-inbox-clone b/script/public-inbox-clone
index 59f01b5491309387e05ee18c3af0412975bd3880..a5651e5fee9f93bdc569df8dd829c8c553283abf 100755 (executable)
--- a/script/public-inbox-clone
+++ b/script/public-inbox-clone
@@ -38,12 +38,9 @@ defined($dst) or ($dst) = ($url =~ m!/([^/]+)/?\z!);
 index($dst, "\n") >= 0 and die "`\\n' not allowed in `$dst'";
 
 # n.b. this is still a truckload of code...
-require URI;
 require PublicInbox::LEI;
 require PublicInbox::LeiExternal;
 require PublicInbox::LeiMirror;
-require PublicInbox::LeiCurl;
-require PublicInbox::Lock;
 
 $url = PublicInbox::LeiExternal::ext_canonicalize($url);
 my $lei = bless {
@@ -59,7 +56,6 @@ my $mrr = bless {
 }, 'PublicInbox::LeiMirror';
 
 $? = 0;
-$mrr->{dry_run} = 1 if $lei->{opt}->{'dry-run'};
 $mrr->do_mirror;
 $mrr->can('_wq_done_wait')->([$mrr, $lei], $$);
 exit(($lei->{child_error} // 0) >> 8);