From: 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