scripts/dyndns
1
0
Fork 0
Code Issues Pull Requests Activity

Fixed issue with splice on perl versions > 5.23

Browse Source 
Addressed error message: Experimental splice on scalar is now forbidden
This commit is contained in:
Frederik Lindenaar
2019-08-05 21:21:54 +02:00
parent 9cb9bf9e7a
commit 4e9ea3dd18
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
dyndns.pl
View File

@@ -414,8 +414,8 @@ foreach my $d (@DNSDomain) {
if ($d eq '!') { $d = $cgi->virtual_host; } if ($d eq '!') { $d = $cgi->virtual_host; }
elsif ($d eq '?') { $d = $cgi->param('domain'); } elsif ($d eq '?') { $d = $cgi->param('domain'); }
elsif ($d =~ /-?\d+/) { elsif ($d =~ /-?\d+/) {
if ($d <0) { $d = join('.', splice([ split(/\./, $cgi->virtual_host) ], $d)); } if ($d <0) { $d = join('.', splice(@{[ split(/\./, $cgi->virtual_host) ]}, $d)); }
else { $d = join('.', splice([ split(/\./, $host) ], ($d) ? -$d : 1)); } else { $d = join('.', splice(@{[ split(/\./, $host) ]}, ($d) ? -$d : 1)); }
} }
$dnsdomain = $d if ($host && length($host) == length($d)+rindex($host,$d)); $dnsdomain = $d if ($host && length($host) == length($d)+rindex($host,$d));
last if $dnsdomain; last if $dnsdomain;