transport-helper: update remote helper namespace
[gitweb.git] / t / test-terminal.perl
index c2e9dacc2d45c72c60fcc155a38ac0993e7e4455..1fb373f25bac42648a0779ffd42f1ae0eaec359a 100755 (executable)
@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+use 5.008;
 use strict;
 use warnings;
 use IO::Pty;
@@ -30,7 +31,7 @@ sub finish_child {
        } elsif ($? & 127) {
                my $code = $? & 127;
                warn "died of signal $code";
-               return $code - 128;
+               return $code + 128;
        } else {
                return $? >> 8;
        }
@@ -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;