X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=dff27088008038b2a53a5dc877782e485d147a7f;hb=638d9efe6fe3d3c4eec08d5e985fce4dd760423b;hp=956957e8260f1218f8eebeacd677b76795f98ef4;hpb=2a39cb7fe81a46b5d227c0e02857463b93678cfa;p=spider.git

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 956957e8..dff27088 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -363,7 +363,10 @@ sub wanttalk
 
 sub wantlogininfo
 {
-	return _want('logininfo', @_);
+	my $self = shift;
+	my $n = shift;
+	$self->{wantlogininfo} = $n if $n;
+	return exists $self->{wantlogininfo} ? $self->{wantlogininfo} : 0;
 }
 
 1;