From 1ab8dabe04ebba61fd8761dca3d569947cbe20be Mon Sep 17 00:00:00 2001
From: Eric Wong <e@80x24.org>
Date: Thu, 9 Feb 2017 00:26:52 +0000
Subject: repobrowse: avoid slurping lines

"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")
---
 lib/PublicInbox/RepobrowseGitSummary.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/PublicInbox/RepobrowseGitSummary.pm')

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)/!!;
-- 
cgit v1.2.3-24-ge0c7