lib/PublicInbox/V2Writable.pm | 2 +- diff --git a/lib/PublicInbox/V2Writable.pm b/lib/PublicInbox/V2Writable.pm index 269b028f5373a9fb1e99ed7c2b8166c438c6d111..34f13e26cb2531ebda1da78266357f5c00aa01d2 100644 --- a/lib/PublicInbox/V2Writable.pm +++ b/lib/PublicInbox/V2Writable.pm @@ -137,7 +137,7 @@ # very unlikely: warn "<$mid> reused for mismatched content\n"; # try the rest of the mids - foreach my $i (1..$#$mids) { + for(my $i = $#$mids; $i >= 1; $i--) { my $m = $mids->[$i]; $num = $self->{skel}->{mm}->mid_insert($m); if (defined $num) {