From 4e9ea3dd18d9b86c95897ab00b4315be5855e79d Mon Sep 17 00:00:00 2001
From: Frederik Lindenaar <frederik@lindenaar.nl>
Date: Mon, 5 Aug 2019 21:21:54 +0200
Subject: [PATCH] Fixed issue with splice on perl versions > 5.23
---
dyndns.pl | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/dyndns.pl b/dyndns.pl
index 63e0e71..f65e286 100755
--- a/dyndns.pl
+++ b/dyndns.pl
@@ -414,8 +414,8 @@ foreach my $d (@DNSDomain) {
if ($d eq '!') { $d = $cgi->virtual_host; }
elsif ($d eq '?') { $d = $cgi->param('domain'); }
elsif ($d =~ /-?\d+/) {
- if ($d <0) { $d = join('.', splice([ split(/\./, $cgi->virtual_host) ], $d)); }
- else { $d = join('.', splice([ split(/\./, $host) ], ($d) ? -$d : 1)); }
+ if ($d <0) { $d = join('.', splice(@{[ split(/\./, $cgi->virtual_host) ]}, $d)); }
+ else { $d = join('.', splice(@{[ split(/\./, $host) ]}, ($d) ? -$d : 1)); }
}
$dnsdomain = $d if ($host && length($host) == length($d)+rindex($host,$d));
last if $dnsdomain;
--
libgit2 0.22.2