From 2226a0b70fa795771f1eff94063d37e0477a3e4e Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Wed, 27 Jan 2021 17:07:39 -0700
Subject: gmi2email: don't exit subroutine via 'next'

Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
---
 gmi2email | 5 +++--
 1 file 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) {
-- 
cgit v1.2.3