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")

1 files changed, 1 insertions, 1 deletions

diff --git a/lib/PublicInbox/RepobrowseBase.pm b/lib/PublicInbox/RepobrowseBase.pm
index caec5ced..44f422df 100644
--- a/lib/PublicInbox/RepobrowseBase.pm
+++ b/lib/PublicInbox/RepobrowseBase.pm
@@ -24,7 +24,7 @@ sub mime_load {
         my ($self, $file) = @_;
         my %rv;
         open my $fh, '<', $file or return \%rv;
-        foreach (<$fh>) {
+        while (<$fh>) {
                 next if /^#/; # no comments
                 my ($type, @ext) = split(/\s+/);