Line # Revision Author
1 3 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');