From c72d128a9ecbfb0caa3f9513c36a90e47543cc5e Mon Sep 17 00:00:00 2001
From: Richard Hansen <rhansen@rhansen.org>
Date: Mon, 29 Jun 2020 14:21:29 -0400
Subject: [PATCH] Disable accidental interpolation in regular expression

Without this change, Perl prints the following warning:

> Possible unintended interpolation of `@$` in string at ddclient line 43.
---
 ddclient.template | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ddclient.template b/ddclient.template
index eb3e7e9..555de2b 100755
--- a/ddclient.template
+++ b/ddclient.template
@@ -40,7 +40,7 @@ my $hostname = hostname();
 # to run this file as a Perl script before those substitutions are made.
 sub subst_var {
     my ($subst, $default) = @_;
-    return $default if $subst =~ /^@\w+@$/a;
+    return $default if $subst =~ qr'^@\w+@$'a;
     return $subst;
 }