From 55728c213e0afdfebbbc5bf039ccb47f1eb6a0b0 Mon Sep 17 00:00:00 2001
From: minima <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.34.1