From 2ac61250e576027f39360508f3c767081032dc0d Mon Sep 17 00:00:00 2001 From: Richard Hansen 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: $@");