Revision 8 (by ahitrov@rambler.ru, 2010/03/29 11:46:38) Contenido UTF-8 core files
--- DBI.pm	Mon Dec  2 01:36:54 2002
+++ DBI.pm	Mon Nov 17 21:00:52 2003
@@ -1315,10 +1315,8 @@
 
     sub begin_work {
 	my $dbh = shift;
-	return $dbh->DBI::set_err(1, "Already in a transaction")
-		unless $dbh->FETCH('AutoCommit');
-	$dbh->STORE('AutoCommit', 0); # will croak if driver doesn't support it
-	$dbh->STORE('BegunWork',  1); # trigger post commit/rollback action
+	return $dbh->DBI::set_err(1, "Transaction impossible with AutoCommit enabled")	if $dbh->FETCH('AutoCommit');
+	$dbh->_not_impl('begin');
     }
     sub commit {
 	shift->_not_impl('commit');