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 $query = $select->buildQuery();
my $hash = WebGUI::SQL->quickHashRef($query); my $hash = WebGUI::SQL->quickHashRef($query);
return undef unless %$hash; return undef unless defined %$hash;
return bless {_property => $hash,_noSet => $noSet}, $class; return bless {_property => $hash,_noSet => $noSet}, $class;
} }
} }