[Bast-commits] r6434 - in DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage: . DBI

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-05-26 18:49:49 +0000 (Tue, 26 May 2009)
New Revision: 6434

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/mysql.pm
Log:
fix comments

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/mysql.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/mysql.pm	2009-05-26 15:20:57 UTC (rev 6433)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/mysql.pm	2009-05-26 18:49:49 UTC (rev 6434)
@@ -52,7 +52,7 @@
 }
 
 # MySql can not do subquery update/deletes, only way is slow per-row operations.
-# This assumes you have proper privilege separation and use innodb.
+# This assumes you have set proper transaction isolation and use innodb.
 sub subq_update_delete {
   return shift->_per_row_update_delete (@_);
 }

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm	2009-05-26 15:20:57 UTC (rev 6433)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm	2009-05-26 18:49:49 UTC (rev 6434)
@@ -1143,8 +1143,10 @@
 
   my $guard = $self->txn_scope_guard;
 
+  # emulate the return value of $sth->execute for non-selects
+  my $row_cnt = '0E0';
+
   my $subrs_cur = $rs->cursor;
-  my $row_cnt = '0E0';
   while (my @pks = $subrs_cur->next) {
 
     my $cond;