fix for bug 4458: check the return value from Table.pm::setAttribs

This commit is contained in:
ligc 2014-03-06 09:14:41 +08:00
parent 21caa0d9b9
commit 6c44423812

View File

@ -153,9 +153,14 @@ else {
#commit all the changes
foreach (keys %tables) {
if (exists($tableupdates{$_})) {
$tables{$_}->setAttribs(\%keyhash,\%{$tableupdates{$_}});
my $rc = $tables{$_}->setAttribs(\%keyhash,\%{$tableupdates{$_}});
if ($rc) {
$::exitcode = 1;
}
}
$tables{$_}->commit;
}
}
if ($::exitcode) {
exit $::exitcode;
}