Commit 4e9ea3dd18d9b86c95897ab00b4315be5855e79d
1 parent
9cb9bf9e
Fixed issue with splice on perl versions > 5.23
Addressed error message: Experimental splice on scalar is now forbidden
Showing
1 changed file
with
2 additions
and
2 deletions
dyndns.pl
... | ... | @@ -414,8 +414,8 @@ foreach my $d (@DNSDomain) { |
414 | 414 | if ($d eq '!') { $d = $cgi->virtual_host; } |
415 | 415 | elsif ($d eq '?') { $d = $cgi->param('domain'); } |
416 | 416 | elsif ($d =~ /-?\d+/) { |
417 | - if ($d <0) { $d = join('.', splice([ split(/\./, $cgi->virtual_host) ], $d)); } | |
418 | - else { $d = join('.', splice([ split(/\./, $host) ], ($d) ? -$d : 1)); } | |
417 | + if ($d <0) { $d = join('.', splice(@{[ split(/\./, $cgi->virtual_host) ]}, $d)); } | |
418 | + else { $d = join('.', splice(@{[ split(/\./, $host) ]}, ($d) ? -$d : 1)); } | |
419 | 419 | } |
420 | 420 | $dnsdomain = $d if ($host && length($host) == length($d)+rindex($host,$d)); |
421 | 421 | last if $dnsdomain; |
... | ... |