Commit 4e9ea3dd18d9b86c95897ab00b4315be5855e79d

Authored by Frederik Lindenaar
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;
... ...