From 9247dc52598db705b9cf6cbbec16c3919ac5e1d7 Mon Sep 17 00:00:00 2001
From: minima <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