cindex: fix prune to not wipe out the entire index

Oops :x  I noticed this while I was working on a major optimization
for prune...

diff --git a/lib/PublicInbox/CodeSearchIdx.pm b/lib/PublicInbox/CodeSearchIdx.pm
index 9712313344ccd0e462d4b58bc298574bb5695608..fa761ed0f3ac21f555f5b11810aa271710e56d96 100644 (file)
--- a/lib/PublicInbox/CodeSearchIdx.pm
+++ b/lib/PublicInbox/CodeSearchIdx.pm
@@ -803,7 +803,7 @@ EOM
                my $f = "$git_dir/objects/info/alternates";
                open $ALT_FH{$fmt}, '>', $f or die "open($f): $!";
        }
-       say { $ALT_FH{$fmt} } $out or die "say: $!";
+       say { $ALT_FH{$fmt} } $objdir or die "say: $!";
 }
 
 sub prep_alternate_start {

diff --git a/t/cindex.t b/t/cindex.t
index d40f73ff6ac251c834dac7e6394686076cc8ed72..8b89ebffbee6b456de77b497040641b82ba4fa17 100644 (file)
--- a/t/cindex.t
+++ b/t/cindex.t
@@ -165,6 +165,8 @@ if ('--prune') {
        $csrch->reopen;
        is(scalar($csrch->mset('s:hi')->items), 0,
                'hit stays pruned since GIT_DIR was previously pruned');
+       isnt(scalar($csrch->mset('s:NUL')->items), 0,
+               'prune did not clobber entire index');
 }
 
 File::Path::remove_tree("$tmp/ext");