lib/PublicInbox/SearchThread.pm | 4 ++-- diff --git a/lib/PublicInbox/SearchThread.pm b/lib/PublicInbox/SearchThread.pm index dad783ef6cdc64b73a7e105750a1dc3d25873563..ba31f4322ae851c23a65fdfe6e96c0a42f28b601 100644 --- a/lib/PublicInbox/SearchThread.pm +++ b/lib/PublicInbox/SearchThread.pm @@ -179,7 +179,7 @@ my ($self, $callback) = @_; my %seen; my @q = ($self); while (my $cont = shift @q) { - $seen{$cont}++; + $seen{$cont} = 1; $callback->($cont); if (my $next = $cont->{next}) { @@ -209,7 +209,7 @@ while ($walk) { push @visited, $walk; # spot/break loops - $seen{$walk}++; + $seen{$walk} = 1; my $child = $walk->{child}; if ($child && $seen{$child}) {