From 2ac61250e576027f39360508f3c767081032dc0d Mon Sep 17 00:00:00 2001
From: Richard Hansen <rhansen@rhansen.org>
Date: Wed, 24 Jul 2024 18:40:57 -0400
Subject: [PATCH] dnsexit2: Fix compatibility with old versions of Perl

The non-destructive substitution modifier wasn't added until Perl
v5.14.0.
---
 ddclient.in | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ddclient.in b/ddclient.in
index cc762ed..69b1d93 100755
--- a/ddclient.in
+++ b/ddclient.in
@@ -4035,7 +4035,7 @@ sub dnsexit2_update_host {
         failed("Full reply\n%s", $reply) unless opt('verbose');
         return;
     }
-    my $body = ($reply =~ s/^.*?\r?\n\r?\n//sr);
+    (my $body = $reply) =~ s/^.*?\r?\n\r?\n//s;
     my $response = eval { decode_json($body); };
     if (!$response) {
         failed("failed to parse response: $@");