fixed the default fo set/login to off not on

[spider.git] / perl / DXUser.pm

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 956957e8260f1218f8eebeacd677b76795f98ef4..dff27088008038b2a53a5dc877782e485d147a7f 100644 (file)
--- 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;