fixed a mod_perl 2 problem
This commit is contained in:
parent
79a10f5b87
commit
d40375c3b0
1 changed files with 1 additions and 1 deletions
|
|
@ -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;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue