X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=ddcbc954da3248e74be2fa276b9e3b3709a26eff;hb=f415973f5f2afa49403e76a1fc1dec29a71be950;hp=e65dd9227ae37a814a78dd40ea34fae3e6091270;hpb=3e6bfdd3f55497dec6b16be893c8e59b3c7e0211;p=spider.git diff --git a/perl/DXUser.pm b/perl/DXUser.pm index e65dd922..ddcbc954 100644 --- a/perl/DXUser.pm +++ b/perl/DXUser.pm @@ -527,7 +527,10 @@ sub wantann_talk sub wantlogininfo { - return _want('logininfo', @_); + my $self = shift; + my $val = shift; + $self->{wantlogininfo} = $val if defined $val; + return $self->{wantlogininfo}; } sub is_node