From 293af10a9bd6acfee58b15c8f5a709f888aead58 Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Wed, 27 Jan 2021 17:38:32 -0700
Subject: gmi2email: die if fail to establish SSL connection

Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
---
 gmi2email | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gmi2email b/gmi2email
index c3e26e5..02e3d66 100755
--- a/gmi2email
+++ b/gmi2email
@@ -188,7 +188,7 @@ sub gemini_fetch {
         PeerHost        => $host,
         PeerPort        => $port // 1965,
         SSL_verify_mode => SSL_VERIFY_NONE
-    );
+    ) or die "while fetching $uri: failed to establish SSL connection\n";
     print $cl "$uri\r\n";
 
     my ($status, $meta) = <$cl> =~ /^([0-9]+) (\V+)/;
-- 
cgit v1.2.3