summaryrefslogtreecommitdiff
path: root/gmi2email
diff options
context:
space:
mode:
authorSean Whitton <spwhitton@spwhitton.name>2021-01-27 17:07:39 -0700
committerSean Whitton <spwhitton@spwhitton.name>2021-01-27 17:39:35 -0700
commit2226a0b70fa795771f1eff94063d37e0477a3e4e (patch)
treeaca585e02c5f1e3f949edbd8bad57ee3bdf71b7f /gmi2email
parent1f07bf968d154664cfec5d2414b8a960f82e38ec (diff)
downloadmailscripts-2226a0b70fa795771f1eff94063d37e0477a3e4e.tar.gz
gmi2email: don't exit subroutine via 'next'
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'gmi2email')
-rwxr-xr-xgmi2email5
1 files changed, 3 insertions, 2 deletions
diff --git a/gmi2email b/gmi2email
index 54a3459..bb880a5 100755
--- a/gmi2email
+++ b/gmi2email
@@ -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) {