fix for bug 4458: check the return value from Table.pm::setAttribs
This commit is contained in:
parent
21caa0d9b9
commit
6c44423812
@ -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;
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user