msg_iter: pass $idx as a scalar, not array

[public-inbox.git] / lib / PublicInbox / MsgIter.pm

diff --git a/lib/PublicInbox/MsgIter.pm b/lib/PublicInbox/MsgIter.pm
index cd5a5d99564e9d05c100d521677ca7d62c9deb4f..7c28d019abc8c7e9fae81c9db2b0196c21e81310 100644 (file)
--- a/lib/PublicInbox/MsgIter.pm
+++ b/lib/PublicInbox/MsgIter.pm
@@ -20,12 +20,14 @@ sub em_each_part ($$;$$) {
                my $i = 0;
                @parts = map { [ $_, 1, ++$i ] } @parts;
                while (my $p = shift @parts) {
-                       my ($part, $depth, @idx) = @$p;
+                       my ($part, $depth, $idx) = @$p;
                        my @sub = $part->subparts;
                        if (@sub) {
                                $depth++;
                                $i = 0;
-                               @sub = map { [ $_, $depth, @idx, ++$i ] } @sub;
+                               @sub = map {
+                                       [ $_, $depth, "$idx.".(++$i) ]
+                               } @sub;
                                @parts = (@sub, @parts);
                        } else {
                                $cb->($p, $cb_arg);