X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=8b856b13736834dad51505141621417dc7fcc7f0;hb=dce19df96e5dab964cd89cab9c33af470d824109;hp=62f262907fc6fa0ba6a48750766d95632e555b8f;hpb=fe7780b7eb15406a7e5caac4ecc499c8f3304e18;p=spider.git

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 62f26290..8b856b13 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -264,7 +264,7 @@ sub get_current
 	my $pkg = shift;
 	my $call = uc shift;
   
-	my $dxchan = DXChannel->get($call);
+	my $dxchan = DXChannel::get($call);
 	return $dxchan->user if $dxchan;
 	my $rref = Route::get($call);
 	return $rref->user if $rref && exists $rref->{user};