X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXChannel.pm;h=91900e4b3c8a360118e25075993ba8387cd20a18;hb=0a1faadbc2cee1d5aa3690ed7fa32dd7443ed83d;hp=7526099e895ccff4d0d86a47c7e69ccc857ee0ef;hpb=84a3c37a6da6adb749bb132ddd116a1c0e821ddb;p=spider.git diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm index 7526099e..91900e4b 100644 --- a/perl/DXChannel.pm +++ b/perl/DXChannel.pm @@ -19,7 +19,7 @@ # firstly and OO about ninthly (if you don't like the design and you can't # improve it with better OO and thus make it smaller and more efficient, then tough). # -# Copyright (c) 1998-2000 - Dirk Koopman G1TLH +# Copyright (c) 1998-2016 - Dirk Koopman G1TLH # # # @@ -171,7 +171,7 @@ sub alloc if (@dxcc > 0) { $self->{dxcc} = $dxcc[1]->dxcc; $self->{itu} = $dxcc[1]->itu; - $self->{cq} = $dxcc[1]->cq; + $self->{cq} = $dxcc[1]->cq; } $self->{inqueue} = [];