Don't rely on the TEST_VERBOSE environment variable (no longer exported from runtests.sh) and instead print to the TESTOUT file handle pulled in from Test::More. This will allow the testing backend to check for verbosity rather than having to handle it in the .t files.

1 files changed, 5 insertions, 5 deletions

diff --git a/t/001compile.t b/t/001compile.t
index c297241df..4fc568662 100644
--- a/t/001compile.t
+++ b/t/001compile.t
@@ -45,8 +45,9 @@ use strict;
 
 # First now we test the scripts                                                   
 my @testitems = @Support::Files::testitems; 
-#my %warnings;
-my $verbose = $::ENV{TEST_VERBOSE};
+# Capture the TESTERR from Test::More for printing errors.
+# This will handle verbosity for us automatically
+*TESTOUT = \*Test::More::TESTOUT;
 my $perlapp = $^X;
 
 foreach my $file (@testitems) {
@@ -63,15 +64,14 @@ foreach my $file (@testitems) {
         my $loginfo=`$command`;
         #print '@@'.$loginfo.'##';
         if ($loginfo =~ /syntax ok$/im) {
-#                $warnings{$_} = 1 foreach ($loginfo =~ /\((W.*?)\)/mg);
                 if ($loginfo ne "$file syntax OK\n") {
-                        if ($verbose) { print STDERR $loginfo; }
+                        print TESTOUT $loginfo;
                         ok(0,$file."--WARNING");
                 } else {
                         ok(1,$file);
                 }
         } else {
-                if ($verbose) { print STDERR $loginfo; }
+                print TESTOUT $loginfo;
                 ok(0,$file."--ERROR");
         }
 }