From 9247dc52598db705b9cf6cbbec16c3919ac5e1d7 Mon Sep 17 00:00:00 2001 From: minima Date: Fri, 18 Feb 2005 22:18:18 +0000 Subject: [PATCH] fix undefs --- perl/Aranea.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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); -- 2.43.0