searchthread: delete children early while ordering

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

diff --git a/lib/PublicInbox/SearchThread.pm b/lib/PublicInbox/SearchThread.pm
index cc8c90ce23d4f51354e5599ecf16810d86afdd6d..00ae9faccc08b7b16aff259fb9cd54165b485eb2 100644 (file)
--- a/lib/PublicInbox/SearchThread.pm
+++ b/lib/PublicInbox/SearchThread.pm
@@ -167,7 +167,7 @@ sub order_children {
        while (defined($cur = shift @q)) {
                # the {children} hashref here...
                my @c = grep { !$seen{$_}++ && visible($_, $ibx) }
-                       values %{$cur->{children}};
+                       values %{delete $cur->{children}};
                $ordersub->(\@c) if scalar(@c) > 1;
                $cur->{children} = \@c; # ...becomes an arrayref
                push @q, @c;