Changeset 504
- Timestamp:
- 06/25/08 00:00:59 (17 months ago)
- Files:
-
- 1 modified
-
trunk/lib/Data/ObjectDriver/Driver/DBI.pm (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/lib/Data/ObjectDriver/Driver/DBI.pm
r494 r504 556 556 or Carp::croak("$action called without a stored handle--begin_work?"); 557 557 558 return if $dbh->{AutoCommit};559 560 eval { $dbh->$action() };561 if ($@) {562 Carp::croak("$action failed for driver $driver: $@");558 unless ($dbh->{AutoCommit}) { 559 eval { $dbh->$action() }; 560 if ($@) { 561 Carp::croak("$action failed for driver $driver: $@"); 562 } 563 563 } 564 564 if ($driver->{__delete_dbh_after_txn}) {
