From bab2cc5b932a1b57a8a81e7e815c692169da0d6c Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Mon, 7 Mar 2005 23:30:45 +0000
Subject: [PATCH] fix callsigns in group field

---
 perl/Aranea.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/Aranea.pm b/perl/Aranea.pm
index e31b7984..08d97ce9 100644
--- a/perl/Aranea.pm
+++ b/perl/Aranea.pm
@@ -383,7 +383,7 @@ sub input
 	my ($gp, $tus) = split /:/, $group, 2 if $group;
 
 	$err .= "from me," if $origin eq $main::mycall;
-	$err .= "invalid group ($gp)," if $gp && $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.34.1