X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=0e78af482278a6fbcff41bc8eb2792fd24255327;hb=bbe9659ae19097772164125b4fc97040a4e76350;hp=dff27088008038b2a53a5dc877782e485d147a7f;hpb=638d9efe6fe3d3c4eec08d5e985fce4dd760423b;p=spider.git

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