From bbe9659ae19097772164125b4fc97040a4e76350 Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Sun, 21 Nov 1999 17:56:24 +0000
Subject: [PATCH] get set/nobeeps to work?

---
 perl/DXUser.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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
-- 
2.43.0