X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FDXChannel.pm;h=ad6e46b7194f0ef469fb6797c0425adc4590980c;hb=c3c15883cf25add24fc49e32eb0d17dce6839a62;hp=90e19ef9e2bb433c3d80b397286ed757a7db8c97;hpb=bcf099764f49e68ef016964e420b906e7900623e;p=spider.git

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index 90e19ef9..ad6e46b7 100644
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -185,11 +185,10 @@ sub rec
 	}
 }
 
-# obtain a channel object by callsign [$obj = DXChannel->get($call)]
+# obtain a channel object by callsign [$obj = DXChannel::get($call)]
 sub get
 {
-	my ($pkg, $call) = @_;
-	return $channels{$call};
+	return $channels{$_[0]};
 }
 
 # obtain all the channel objects