1 files changed, 4 insertions, 2 deletions
diff --git a/t/003safesys.t b/t/003safesys.t
index 94d137aa9..98e9d2d64 100644
--- a/t/003safesys.t
+++ b/t/003safesys.t
@@ -44,7 +44,9 @@ BEGIN { use Test::More tests => $tests; }
 use strict;
 
 my @testitems = @Support::Files::testitems; 
-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) {
@@ -54,7 +56,7 @@ foreach my $file (@testitems) {
         my $loginfo=`$command`;
         if ($loginfo =~ /arguments for Support::Systemexec::(system|exec)/im) {
                 ok(0,"$file DOES NOT use proper system or exec calls");
-                if ($verbose) { print STDERR $loginfo; }
+                print TESTOUT $loginfo;
         } else {
                 ok(1,"$file uses proper system and exec calls");
         }