t/TEST: Avoid SIGPIPEs on os390

This works around a problem with z/OS where if there are unread lines
from a file descriptor using this, a SIGPIPE error is raised.

1 files changed, 3 insertions, 0 deletions

diff --git a/t/TEST b/t/TEST
index 9fa708c2ec..5210bc8365 100755
--- a/t/TEST
+++ b/t/TEST
@@ -665,7 +665,10 @@ EOT
 		}
 	    }
 	}
+	my  @junk = <$results>;  # dump remaining output to prevent SIGPIPE
+				 # (so far happens only on os390)
 	close $results;
+	undef @junk;
 
 	if (not defined $failure) {
 	    $failure = 'FAILED--no leader found' unless $seen_leader;