get set/nobeeps to work?

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index dff27088008038b2a53a5dc877782e485d147a7f..0e78af482278a6fbcff41bc8eb2792fd24255327 100644 (file)
--- 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