X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXChannel.pm;h=91900e4b3c8a360118e25075993ba8387cd20a18;hb=7f38719941b040ae64358fece992179c5938d609;hp=7526099e895ccff4d0d86a47c7e69ccc857ee0ef;hpb=63cd679163fe336521e95e8af821b30d4bc1b9e9;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} = [];