X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXChannel.pm;h=2758e64dd3a1f8c54fd65998fbee065ee2f6a51a;hb=080a66c38925314321249190eb5a4dc572636d4b;hp=df74bfc89302fdf00f398735bd53df5b5985a546;hpb=72e9dcbade3fdb51d9291a2856ca1cc998241f9b;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";