summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xgmi2email2
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$'";