From 49c871742005d4e13577d90eac60a1ca0adcd3a0 Mon Sep 17 00:00:00 2001
From: Richard Hansen <rhansen@rhansen.org>
Date: Sun, 5 Jul 2020 16:11:31 -0400
Subject: [PATCH] Silence warning when calling `geturl` from an anonymous sub

---
 ddclient.in | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ddclient.in b/ddclient.in
index 6573fe1..21243c7 100755
--- a/ddclient.in
+++ b/ddclient.in
@@ -2007,7 +2007,7 @@ sub geturl {
     opt('fw') && debug("opt(fw = %s)", opt('fw'));
     $globals{'fw'} && debug("glo fw = %s", $globals{'fw'});
     ## always omit SSL for connections to local router
-    if ($force_ssl || ($globals{'ssl'} and (caller(1))[3] ne 'main::get_ip')) {
+    if ($force_ssl || ($globals{'ssl'} && ((caller(1))[3] // '') ne 'main::get_ip')) {
         $use_ssl      = 1;
         $default_port = '443';
     } else {