X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXChannel.pm;h=2758e64dd3a1f8c54fd65998fbee065ee2f6a51a;hb=3761cb3e0997a63ca4611f0c684474dd9bc80c9a;hp=df74bfc89302fdf00f398735bd53df5b5985a546;hpb=840ace66681d2d615ff412e1197fa613f262c1f2;p=spider.git

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index df74bfc8..2758e64d 100644
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -441,7 +441,7 @@ sub decode_input
 {
 	my $dxchan = shift;
 	my $data = shift;
-	my ($sort, $call, $line) = $data =~ /^([A-Z])([A-Z1-9\-]{3,9})\|(.*)$/;
+	my ($sort, $call, $line) = $data =~ /^([A-Z])([A-Z0-9\-]{3,9})\|(.*)$/;
 
 	my $chcall = (ref $dxchan) ? $dxchan->call : "UN.KNOWN";