Funktion "deprecated" nach Perl-Update auf Server?

[Johannes Lichtenberger]

$_ =~ s/[\n\r]//g;

Besser: s/\cM?\cJ//g;

if ($ip eq $newaddr) {

Klappt das eigentlich? Müsste darauf nicht ein unless ($time > $locktime) {} oder derartiges folgen?

Johannes