From: Ken Youens-Clark <kclark@cpan.org>
Date: Wed, 15 Apr 2009 18:12:51 +0000 (+0000)
Subject: Checked for interactive so no ugly messages during test suite.
X-Git-Tag: v0.11008~196
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=52e2730eab55b54ebc330686663bb2f5b77f59f4;p=dbsrgits%2FSQL-Translator.git

Checked for interactive so no ugly messages during test suite.
---

diff --git a/lib/SQL/Translator/Producer/TT/Table.pm b/lib/SQL/Translator/Producer/TT/Table.pm
index 53d5df3..35f9d65 100644
--- a/lib/SQL/Translator/Producer/TT/Table.pm
+++ b/lib/SQL/Translator/Producer/TT/Table.pm
@@ -260,7 +260,9 @@ sub write_file {
         }
     }
     else {
-        warn "Creating $file.\n";
+        if ( my $interactive = -t STDIN && -t STDOUT ) {
+            warn "Creating $file.\n";
+        }
     }
 
     my ($dir) = $file =~ m!^(.*)/!; # Want greedy, eveything before the last /