[Bast-commits] r9783 - in SQL-Abstract/1.x/trunk: . lib/DBIx/Class/Storage/Debug

[frew at dev.catalyst.perl.org]

Author: frew
Date: 2010-10-23 16:43:00 +0000 (Sat, 23 Oct 2010)
New Revision: 9783

Modified:
   SQL-Abstract/1.x/trunk/Changes
   SQL-Abstract/1.x/trunk/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm
Log:
Hide bulk inserts from DBIx::Class

Modified: SQL-Abstract/1.x/trunk/Changes
===================================================================
--- SQL-Abstract/1.x/trunk/Changes	2010-10-23 15:32:24 UTC (rev 9782)
+++ SQL-Abstract/1.x/trunk/Changes	2010-10-23 16:43:00 UTC (rev 9783)
@@ -1,5 +1,7 @@
 Revision history for SQL::Abstract
 
+    - Hide bulk inserts from DBIx::Class
+
 revision 1.69  2010-10-22
 ----------------------------
     - Add quotes for populated placeholders and make the background

Modified: SQL-Abstract/1.x/trunk/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm
===================================================================
--- SQL-Abstract/1.x/trunk/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm	2010-10-23 15:32:24 UTC (rev 9782)
+++ SQL-Abstract/1.x/trunk/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm	2010-10-23 16:43:00 UTC (rev 9783)
@@ -25,6 +25,9 @@
   my $string = shift;
   my $bindargs = shift || [];
 
+  return if defined $bindargs && defined $bindargs->[0] &&
+    $bindargs->[0] eq q('__BULK_INSERT__');
+
   my $use_placeholders = !!$self->_sqlat->fill_in_placeholders;
 
   # DBIC pre-quotes bindargs