Fabio/ddclient
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

dnsexit2: Fix compatibility with old versions of Perl

Browse source 
The non-destructive substitution modifier wasn't added until Perl
v5.14.0.
This commit is contained in:
Richard Hansen 2024-07-24 18:40:57 -04:00
parent 962abfbbc3
commit 2ac61250e5
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
ddclient.in
View file

@ -4035,7 +4035,7 @@ sub dnsexit2_update_host {
failed("Full reply\n%s", $reply) unless opt('verbose'); failed("Full reply\n%s", $reply) unless opt('verbose');
return; 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); }; my $response = eval { decode_json($body); };
if (!$response) { if (!$response) {
failed("failed to parse response: $@"); failed("failed to parse response: $@");