fixed a mod_perl 2 problem

This commit is contained in:
JT Smith 2003-07-01 01:24:19 +00:00
parent 79a10f5b87
commit d40375c3b0

View file

@ -405,7 +405,7 @@ sub new {
);
my $query = $select->buildQuery();
my $hash = WebGUI::SQL->quickHashRef($query);
return undef unless %$hash;
return undef unless defined %$hash;
return bless {_property => $hash,_noSet => $noSet}, $class;
}
}