From: djk <djk>
Date: Sun, 21 Nov 1999 17:56:24 +0000 (+0000)
Subject: get set/nobeeps to work?
X-Git-Tag: R_1_35~4
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=bbe9659ae19097772164125b4fc97040a4e76350;p=spider.git

get set/nobeeps to work?
---

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index dff27088..0e78af48 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -326,9 +326,10 @@ sub _want
 {
 	my $n = shift;
 	my $self = shift;
+	my $val = shift;
 	my $s = "want$n";
-	return $self->{$n} = shift if @_;
-	return defined $self->{$n} ? $self->{$n} : 1;
+	$self->{$n} = $val if $val;
+	return exists $self->{$n} ? $self->{$n} : 1;
 }
 
 sub wantbeep