From: Arthur Axel "fREW" Schmidt <frioux@gmail.com>
Date: Sat, 23 Oct 2010 16:43:00 +0000 (+0000)
Subject: Hide bulk inserts from DBIx::Class
X-Git-Tag: v1.70~26
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FSQL-Abstract.git;a=commitdiff_plain;h=fab0bed9d6f7c688660726c1f23448c136ba222b

Hide bulk inserts from DBIx::Class
---

diff --git a/Changes b/Changes
index 3154611..1423ac9 100644
--- a/Changes
+++ b/Changes
@@ -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
diff --git a/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm b/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm
index 53de002..affb422 100644
--- a/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm
+++ b/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm
@@ -25,6 +25,9 @@ sub print {
   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