X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;fp=perl%2FDXUser.pm;h=056fe9ff50b3a1e2ce1c42cccc6f3491b4f19839;hb=c3c15883cf25add24fc49e32eb0d17dce6839a62;hp=a349f6ab41f9d3c90629c3c1cb20f038e9ba2256;hpb=bcf099764f49e68ef016964e420b906e7900623e;p=spider.git

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index a349f6ab..056fe9ff 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -262,7 +262,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};