| 1 |
8 |
ahitrov@rambler.ru |
--- DBI.pm Mon Dec 2 01:36:54 2002 |
| 2 |
|
|
+++ DBI.pm Mon Nov 17 21:00:52 2003 |
| 3 |
|
|
@@ -1315,10 +1315,8 @@ |
| 4 |
|
|
|
| 5 |
|
|
sub begin_work { |
| 6 |
|
|
my $dbh = shift; |
| 7 |
|
|
- return $dbh->DBI::set_err(1, "Already in a transaction") |
| 8 |
|
|
- unless $dbh->FETCH('AutoCommit'); |
| 9 |
|
|
- $dbh->STORE('AutoCommit', 0); # will croak if driver doesn't support it |
| 10 |
|
|
- $dbh->STORE('BegunWork', 1); # trigger post commit/rollback action |
| 11 |
|
|
+ return $dbh->DBI::set_err(1, "Transaction impossible with AutoCommit enabled") if $dbh->FETCH('AutoCommit'); |
| 12 |
|
|
+ $dbh->_not_impl('begin'); |
| 13 |
|
|
} |
| 14 |
|
|
sub commit { |
| 15 |
|
|
shift->_not_impl('commit'); |