diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-01-28 00:16:18 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-01-28 00:16:31 -0700 |
commit | c97c00d799bbfbab958d3b03d403c5431a1cb7e2 (patch) | |
tree | 605f41a173044267754fa21719ab473e0a8b133e | |
parent | 891877f7b1bbb1dea0f82ec6e577dc0cb3ce51e0 (diff) | |
download | mailscripts-c97c00d799bbfbab958d3b03d403c5431a1cb7e2.tar.gz |
gmi2email: avoid loading whole gemtext into memory
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rwxr-xr-x | gmi2email | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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$'"; |