t5404: do not assume the "matching" push is the default

diff --git a/t/test-terminal.perl b/t/test-terminal.perl
index c2e9dacc2d45c72c60fcc155a38ac0993e7e4455..10172aee18292b50aa24b3a8694b5383c1cfd98e 100755 (executable)
--- a/t/test-terminal.perl
+++ b/t/test-terminal.perl
@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+use 5.008;
 use strict;
 use warnings;
 use IO::Pty;
@@ -68,6 +69,10 @@ sub copy_stdio {
 }
 my $master_out = new IO::Pty;
 my $master_err = new IO::Pty;
+$master_out->set_raw();
+$master_err->set_raw();
+$master_out->slave->set_raw();
+$master_err->slave->set_raw();
 my $pid = start_child(\@ARGV, $master_out->slave, $master_err->slave);
 close $master_out->slave;
 close $master_err->slave;