From: Peter Rabbitson <ribasushi@cpan.org>
Date: Thu, 4 Apr 2013 02:23:23 +0000 (+0200)
Subject: Do not repeatedly trace test schema populate under TravisCI
X-Git-Tag: v0.08210~5
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f820092840ce4cf741a762c80409a0c83197cc2c;hp=6e102c8f57949f9318da1ff12e33d3a652e3d93c;p=dbsrgits%2FDBIx-Class.git

Do not repeatedly trace test schema populate under TravisCI
---

diff --git a/t/lib/DBICTest.pm b/t/lib/DBICTest.pm
index 589f82b..75599eb 100644
--- a/t/lib/DBICTest.pm
+++ b/t/lib/DBICTest.pm
@@ -328,6 +328,9 @@ sub deploy_schema {
     my $schema = shift;
     my $args = shift || {};
 
+    local $schema->storage->{debug}
+      if ($ENV{TRAVIS}||'') eq 'true';
+
     if ($ENV{"DBICTEST_SQLT_DEPLOY"}) {
         $schema->deploy($args);
     } else {
@@ -356,6 +359,9 @@ sub populate_schema {
     my $self = shift;
     my $schema = shift;
 
+    local $schema->storage->{debug}
+      if ($ENV{TRAVIS}||'') eq 'true';
+
     $schema->populate('Genre', [
       [qw/genreid name/],
       [qw/1       emo  /],