fix all DXChannel->get to ::get

[spider.git] / perl / DXUser.pm

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index a349f6ab41f9d3c90629c3c1cb20f038e9ba2256..056fe9ff50b3a1e2ce1c42cccc6f3491b4f19839 100644 (file)
--- 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};