X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FExtMsg.pm;h=0ca2de83c6f5d367a67fbb4dc87d0267372b84f0;hp=ae50f036568c57a02596f1d70b40c38260289876;hb=ab811a0c902225075a9bd69749f65594079433a9;hpb=8182fba8e33d568b834621cc35c1ca7c74fb5487

diff --git a/perl/ExtMsg.pm b/perl/ExtMsg.pm
index ae50f036..0ca2de83 100644
--- a/perl/ExtMsg.pm
+++ b/perl/ExtMsg.pm
@@ -106,7 +106,7 @@ sub dequeue
 					my $sort = $conn->{csort};
 					$sort = 'local' if $conn->{peerhost} =~ /127\.\d+\.\d+\.\d+$/ || $conn->{peerhost} eq '::1';
 					my $uref;
-					if ($main::passwdreq || ($uref = DXUser->get_current($msg)) && $uref->passwd ) {
+					if ($main::passwdreq || ($uref = DXUser::get_current($msg)) && $uref->passwd ) {
 						$conn->conns($msg);
 						$conn->{state} = 'WP';
 						$conn->{decho} = $conn->{echo};
@@ -120,7 +120,7 @@ sub dequeue
 					$conn->disconnect;
 				}
 			} elsif ($conn->{state} eq 'WP' ) {
-				my $uref = DXUser->get_current($conn->{call});
+				my $uref = DXUser::get_current($conn->{call});
 				$msg =~ s/[\r\n]+$//;
 				if ($uref && $msg eq $uref->passwd) {
 					my $sort = $conn->{csort};