From: minima Date: Fri, 18 Feb 2005 22:18:18 +0000 (+0000) Subject: fix undefs X-Git-Tag: R_1_52~195 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=9247dc52598db705b9cf6cbbec16c3919ac5e1d7;p=spider.git fix undefs --- diff --git a/perl/Aranea.pm b/perl/Aranea.pm index 7973e625..c68b2116 100644 --- a/perl/Aranea.pm +++ b/perl/Aranea.pm @@ -294,9 +294,9 @@ sub input # validate it further $err .= "missing cmd or data," unless $cmd && $data; $err .= "invalid command ($cmd)," unless $cmd =~ /^[A-Z][A-Z0-9]*$/; - my ($gp, $tus) = split /:/, $group, 2; + my ($gp, $tus) = split /:/, $group, 2 if $group; - $err .= "invalid group ($gp)," unless $gp =~ /^[A-Z0-9]{2,}$/; + $err .= "invalid group ($gp)," if $gp && $gp !~ /^[A-Z0-9]{2,}$/; $err .= "invalid tocall ($tus)," if $tus && !is_callsign($tus); $err .= "invalid fromcall ($user)," if $user && !is_callsign($user);