Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Safety checks added to set_sb_config()

Browse Source
This commit is contained in:
Chris 2012-04-11 11:33:42 +01:00
parent 06d6ae7f56
commit e64c9d019d
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ConfigMicro.pm
View File

@ -341,6 +341,10 @@ sub set_db_config {
my $valuecol = shift;
my $section = shift;
# Catch potential problems with the API change, and make name and value safer anyway.
die "ConfigMicro::set_db_config: name must be a scalar value" if(ref($name));
die "ConfigMicro::set_db_config: value must be a scalar value" if(ref($value));
# Try to pull values out of the dbconfig settings if not specified
$dbh = $self -> {"__privdata"} -> {"dbconfig"} -> {"dbh"} if(!defined($dbh) && defined($self -> {"__privdata"} -> {"dbconfig"} -> {"dbh"}));
$table = $self -> {"__privdata"} -> {"dbconfig"} -> {"table"} if(!defined($table) && defined($self -> {"__privdata"} -> {"dbconfig"} -> {"table"}));