lib/PublicInbox/WwwStream.pm | 8 +++----- diff --git a/lib/PublicInbox/WwwStream.pm b/lib/PublicInbox/WwwStream.pm index 8f5a65263fadea90ac12629a434ff3ec736c364e..a724d0697db589121e08acd48b2ff5b9003e4736 100644 --- a/lib/PublicInbox/WwwStream.pm +++ b/lib/PublicInbox/WwwStream.pm @@ -89,12 +89,12 @@ my $ctx = $self->{ctx}; my $ibx = $ctx->{-inbox}; my $desc = ascii_html($ibx->description); - my (%seen, @urls); + my @urls; my $http = $self->{base_url}; my $max = $ibx->max_git_epoch; my $dir = (split(m!/!, $http))[-1]; + my %seen = ($http => 1); if (defined($max)) { # v2 - $seen{$http} = 1; for my $i (0..$max) { # old parts my be deleted: -d "$ibx->{inboxdir}/git/$i.git" or next; @@ -103,15 +103,13 @@ $seen{$url} = 1; push @urls, "$url $dir/git/$i.git"; } } else { # v1 - $seen{$http} = 1; push @urls, $http; } # FIXME: epoch splits can be different in other repositories, # use the "cloneurl" file as-is for now: foreach my $u (@{$ibx->cloneurl}) { - next if $seen{$u}; - $seen{$u} = 1; + next if $seen{$u}++; push @urls, $u =~ /\Ahttps?:/ ? qq($u) : $u; }