From bbe9659ae19097772164125b4fc97040a4e76350 Mon Sep 17 00:00:00 2001 From: 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