diff options
author | Eric Wong <e@80x24.org> | 2017-02-09 00:26:52 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2017-02-09 00:41:39 +0000 |
commit | 1ab8dabe04ebba61fd8761dca3d569947cbe20be (patch) | |
tree | a573f8a477ab3286567c3ab5ca4ca39568dc0f49 /lib/PublicInbox/RepobrowseGitSummary.pm | |
parent | 68b310207929db23667ca5d454a78af9d65589f2 (diff) | |
download | public-inbox-1ab8dabe04ebba61fd8761dca3d569947cbe20be.tar.gz |
"foreach (<$fh>)" in Perl requests lines in array context, so use "while" instead for lazy reading. This follows ba4c50c20b95679580beba1ef290a4281d5285b7 in master ("config: do not slurp lines into memory")
Diffstat (limited to 'lib/PublicInbox/RepobrowseGitSummary.pm')
-rw-r--r-- | lib/PublicInbox/RepobrowseGitSummary.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/PublicInbox/RepobrowseGitSummary.pm b/lib/PublicInbox/RepobrowseGitSummary.pm index b6b96028..e7739ecd 100644 --- a/lib/PublicInbox/RepobrowseGitSummary.pm +++ b/lib/PublicInbox/RepobrowseGitSummary.pm @@ -48,7 +48,7 @@ sub for_each_ref { '</pre><table>'); my $rel = $req->{relcmd}; - foreach (<$refs>) { + while (<$refs>) { my ($ref, $type, $hex, $date, $s) = split(' ', $_, 5); my $x = $ref eq $head_ref ? ' (HEAD)' : ''; $ref =~ s!\Arefs/(?:heads|tags)/!!; |