X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXChannel.pm;h=ad6e46b7194f0ef469fb6797c0425adc4590980c;hb=c4a169b536b6189937c6e789010c370ff3f2259e;hp=90e19ef9e2bb433c3d80b397286ed757a7db8c97;hpb=6c06ed486e67b3e36e9af4794d2eb84f59f249c4;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