Allow for value=0.

git-svn-id: svn://10.0.0.236/trunk@134169 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
mcafee%netscape.com
2002-11-20 05:30:47 +00:00
parent fedc8e686e
commit fa58b7cebc

View File

@@ -50,7 +50,7 @@ for (qw{value data tbox testname ua ip time}) {
#die "No 'real' browsers allowed: $ua"
# unless $ua =~ /^(libwww-perl|PERL_CGI_BASE)/;
die "No 'value' parameter supplied"
unless $value;
unless (defined $value); # Allow for value=0
die "No 'testname' parameter supplied"
unless $testname;
die "No 'tbox' parameter supplied"