$dbh->{PrintError} = 0;
####
If you turn "RaiseError" on then you'd normally turn "PrintError" off.
##
##
my $entries =
eval {
my $entries = 0;
my $sth = $dbh->prepare ($sql); #2
while (my ($name, $age) = each %people) { #3
++$entries if $sth->execute ($name, $age); #4
}
$dbh->commit (); #5
return $entries;
} or do {
my $err = $@;
eval {$dbh->rollback ()} or $err .= "\n Rollback processing failed!";
die $err;
};
##
##
my $entries;
eval {
... stuff ...
$entries++ if $sth->execute($name, $age);
... more stuff ...
$dbh->commit;
1;
} or do {
... rollback and die ...
};