gmi2email: avoid loading whole gemtext into memory

Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>

1 files changed, 1 insertions, 1 deletions

diff --git a/gmi2email b/gmi2email
index 9fa4c23..d3e0ed5 100755
--- a/gmi2email
+++ b/gmi2email
@@ -215,7 +215,7 @@ sub gemini_fetch {
             (my $dir = $path) =~ s{[^/]*$}{};
             $authority =~ m{/$} or $authority .= "/";
             $path =~ m{/$}      or $path      .= "/";
-            for (<$cl>) {
+            while (local $_ = <$cl>) {
                 s/\r?\n\z//;
                 if (m{^=>\s*\./}) {
                     push @lines, "=> gemini://$authority$dir$'";