commit 82224691dcb4f7411d9fb2868b46b9e03af9a5b2 from: Caleb Stein date: Mon May 4 06:07:29 2026 UTC fix braces commit - 1059e91b681172044c1b511ae85d2f0e4f252f7a commit + 82224691dcb4f7411d9fb2868b46b9e03af9a5b2 blob - 74e58b8246fcbac81526b3ddb0392348f0e5d5a0 blob + dbbf37eee4e373bfcecd6356568e75ae3a5e59ac --- mailread.pl +++ mailread.pl @@ -11,10 +11,13 @@ run3(['lynx', '-dump', '-force_html', '-stdin'], \$bod open(my $fh, '>', "$ENV{HOME}/.maillinks"); my $i = 0; $body =~ s{(https?://[^\s<>"]+)}{ - if (length($1) > 80) { + if (length($1) > 80) + { print $fh "$1\n"; "[Link #" . ++$i . "]"; - } else { + } + else + { $1; } }gex;