6 files changed, 6 insertions, 4 deletions
diff --git a/script/lei b/script/lei
index 087afc33..a5aef956 100755
--- a/script/lei
+++ b/script/lei
@@ -37,7 +37,7 @@ my $exec_cmd = sub {
          my ($fds, $argc, @argv) = @_;
          my $parent = $$;
          require POSIX;
-        my @old = (*STDIN{IO}, *STDOUT{IO}, *STDERR{IO});
+        my @old = (\*STDIN, \*STDOUT, \*STDERR);
          my @rdr;
          for my $fd (@$fds) {
                  open(my $newfh, '+<&=', $fd) or die "open +<&=$fd: $!";
diff --git a/script/public-inbox-clone b/script/public-inbox-clone
index c3e64485..5ecf11ae 100755
--- a/script/public-inbox-clone
+++ b/script/public-inbox-clone
@@ -54,7 +54,7 @@ require PublicInbox::LeiMirror;
  $url = PublicInbox::LeiExternal::ext_canonicalize($url);
  my $lei = bless {
          env => \%ENV, opt => $opt, cmd => 'public-inbox-clone',
-        0 => *STDIN{GLOB}, 2 => *STDERR{GLOB},
+        0 => \*STDIN, 2 => \*STDERR,
  }, 'PublicInbox::LEI';
  open $lei->{1}, '+<&=', 1 or die "dup: $!";
  open $lei->{3}, '.' or die "open . $!";
diff --git a/script/public-inbox-extindex b/script/public-inbox-extindex
index bee824b1..2e5a5d2c 100755
--- a/script/public-inbox-extindex
+++ b/script/public-inbox-extindex
@@ -32,7 +32,7 @@ GetOptions($opt, qw(verbose|v+ reindex rethread compact|c+ jobs|j=i
                  indexlevel|index-level|L=s max_size|max-size=s
                  batch_size|batch-size=s
                  dedupe:s@ gc commit-interval=i watch scan! dry-run|n
-                all C=s@ help|h))
+                multi-pack-index! all C=s@ help|h))
          or die $help;
  if ($opt->{help}) { print $help; exit 0 };
  die "--jobs must be >= 0\n" if defined $opt->{jobs} && $opt->{jobs} < 0;
diff --git a/script/public-inbox-fetch b/script/public-inbox-fetch
index 6fd15328..1ae31171 100755
--- a/script/public-inbox-fetch
+++ b/script/public-inbox-fetch
@@ -33,7 +33,7 @@ $SIG{PIPE} = 'IGNORE';
  
  my $lei = bless {
          env => \%ENV, opt => $opt, cmd => 'public-inbox-fetch',
-        0 => *STDIN{GLOB}, 1 => *STDOUT{GLOB}, 2 => *STDERR{GLOB},
+        0 => \*STDIN, 1 => \*STDOUT, 2 => \*STDERR,
  }, 'PublicInbox::LEI';
  PublicInbox::Fetch->do_fetch($lei, '.');
  exit(($lei->{child_error} // 0) >> 8);
diff --git a/script/public-inbox-index b/script/public-inbox-index
index 74232ebf..a13e44bf 100755
--- a/script/public-inbox-index
+++ b/script/public-inbox-index
@@ -44,6 +44,7 @@ GetOptions($opt, qw(verbose|v+ reindex rethread compact|c+ jobs|j=i prune
                  batch_size|batch-size=s
                  since|after=s until|before=s
                  sequential-shard|seq-shard
+                multi-pack-index!
                  no-update-extindex update-extindex|E=s@
                  fast-noop|F skip-docdata all C=s@ help|h))
          or die $help;
diff --git a/script/public-inbox-mda b/script/public-inbox-mda
index b463b07b..74202912 100755
--- a/script/public-inbox-mda
+++ b/script/public-inbox-mda
@@ -72,6 +72,7 @@ if (!scalar(@$dests)) {
  my $err;
  @$dests = grep {
          my $ibx = PublicInbox::InboxWritable->new($_);
+        $ibx->{indexlevel} = $ibx->detect_indexlevel;
          eval { $ibx->assert_usable_dir };
          if ($@) {
                  warn $@;