This is helpful if compacting multiple
inboxes/extindices/cindices sequentially from the CLI.
---
 lib/PublicInbox/Xapcmd.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lib/PublicInbox/Xapcmd.pm b/lib/PublicInbox/Xapcmd.pm
index f3eb8e4e..1547ce53 100644
--- a/lib/PublicInbox/Xapcmd.pm
+++ b/lib/PublicInbox/Xapcmd.pm
@@ -319,10 +319,11 @@ sub cpdb_retryable ($$) {
 
 sub progress_pfx ($) {
        my ($wip) = @_; # tempdir v2: ([0-9])+-XXXX
-       my @p = split('/', $wip);
+       my @p = split(m'/', $wip);
 
-       # return "xap15/0" for v2, or "xapian15" for v1:
-       ($p[-1] =~ /\A([0-9]+)/) ? "$p[-2]/$1" : $p[-1];
+       # "basename(inboxdir)/xap15/0" for v2,
+       # "basename(inboxdir)/xapian15" for v1:
+       ($p[-1] =~ /\A([0-9]+)/) ? "$p[-3]/$p[-2]/$1" : "$p[-2]/$p[-1]";
 }
 
 sub kill_compact { # setup_signals callback

Reply via email to