fix callsigns in group field

diff --git a/perl/Aranea.pm b/perl/Aranea.pm
index e31b7984ffcb59914dc9bdb63a2bdfbffd65633b..08d97ce99cc605ed78323a1ec6a0107e35b7d3d3 100644 (file)
--- 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);