[freeside-commits] freeside/torrus/perllib/Torrus/Collector ExtDBI.pm, 1.1.1.1, 1.2

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/torrus/perllib/Torrus/Collector
In directory wavetail.420.am:/tmp/cvs-serv25869/torrus/perllib/Torrus/Collector

Modified Files:
	ExtDBI.pm 
Log Message:
avoid deadlocks, RT#10574

Index: ExtDBI.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/torrus/perllib/Torrus/Collector/ExtDBI.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -w -d -r1.1.1.1 -r1.2
--- ExtDBI.pm	27 Dec 2010 00:03:58 -0000	1.1.1.1
+++ ExtDBI.pm	29 Apr 2011 01:13:20 -0000	1.2
@@ -63,6 +63,12 @@
     
     if( defined( $dbh ) )
     {
+
+        if ( $dbh->{Driver}->{Name} =~ /^mysql/i ) {
+          $dbh->do('SET SESSION TRANSACTION ISOLATION LEVEL READ UNCOMMITTED');
+          $dbh->commit();
+        }
+
         $sth = $dbh->prepare( Torrus::SQL::SrvExport->sqlInsertStatement() );
         if( not defined( $sth ) )
         {