From 182d28e47858c183d3be2e172c400e3b0521167f Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Thu, 28 Jan 2021 16:03:03 -0700
Subject: gmi2email: avoid some uninitialised variables

Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
---
 gmi2email | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gmi2email b/gmi2email
index 0d9861b..fcf0f0e 100755
--- a/gmi2email
+++ b/gmi2email
@@ -166,14 +166,14 @@ sub send_subscribed_gemtext {
     } catch {
         warn "when fetching $uri, $_";
         my ($code) = /"gemini error: ([1-6])/;
-        if ($code == 4) {
+        if ($code and $code == 4) {
             return;    # try again next run
         } else {
             $mail = 0;    # don't try this one again
         }
     };
     #>>>
-    if ($type =~ m{^text/gemini}) {
+    if ($type and $type =~ m{^text/gemini}) {
         gemtext_to_mail(
             $data, %to_mail_opts,
             gemlog     => $gemlog // "unknown gemlog",
@@ -236,7 +236,7 @@ sub gemini_fetch {
         } else {
             @lines = <$cl>;
         }
-        push @lines, "" unless $lines[$#lines] eq "";
+        push @lines, "" unless !@lines or $lines[$#lines] eq "";
         push @lines, "Retrieved from $uri\n            at " . localtime;
         return $meta, \@lines;
     } else {
-- 
cgit v1.2.3