diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-01-27 17:07:39 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-01-27 17:39:35 -0700 |
commit | 2226a0b70fa795771f1eff94063d37e0477a3e4e (patch) | |
tree | aca585e02c5f1e3f949edbd8bad57ee3bdf71b7f /gmi2email | |
parent | 1f07bf968d154664cfec5d2414b8a960f82e38ec (diff) | |
download | mailscripts-2226a0b70fa795771f1eff94063d37e0477a3e4e.tar.gz |
gmi2email: don't exit subroutine via 'next'
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'gmi2email')
-rwxr-xr-x | gmi2email | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -103,7 +103,7 @@ $dbh->do("CREATE TABLE IF NOT EXISTS seen (uri TEXT PRIMARY KEY)") foreach my $sub (<$subs_fh>) { chomp $sub; - my ($gemlog, $type, $data); + my ($gemlog, $type, $data, $next); #<<< try { ($type, $data) = gemini_fetch($sub, abs_links => 1); @@ -111,12 +111,13 @@ foreach my $sub (<$subs_fh>) { my ($code) = /"gemini error: ([1-6])/; if ($code == 4) { warn "temporary failure retrieving $sub"; - next; # try again next run + $next = 1, return; # try again next run } else { die "while retrieving $sub $_"; } }; #>>> + next if $next; if ($type =~ m{^text/gemini}) { for (@$data) { if (/^#\s*/ and not $gemlog) { |