From 55728c213e0afdfebbbc5bf039ccb47f1eb6a0b0 Mon Sep 17 00:00:00 2001 From: minima Date: Mon, 1 Oct 2001 11:09:23 +0000 Subject: [PATCH] make login info not default --- Changes | 2 ++ perl/DXUser.pm | 5 ++++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/Changes b/Changes index f9d64c6d..0ea38112 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,5 @@ +01Oct01======================================================================= +1. made login info not the default 30Sep01======================================================================= 1. made some small bug fixes in rspf checking and also messages. 23Sep01======================================================================= 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 -- 2.43.0