John Hood
307b241f0d
For original messy development history, see https://github.com/cgull/mosh/tree/localhost or https://github.com/cgull/mosh/commit/e7feed48a4a271e2977f714f58acfa04cdaa5cca
22 lines
457 B
Perl
Executable File
22 lines
457 B
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
#
|
|
# The sole function of this script is to provide a stdin that doesn't
|
|
# read data or return EOF to its children. If there's a clean,
|
|
# portable, not-Perl way to do this, then that should replace this.
|
|
#
|
|
use warnings;
|
|
use strict;
|
|
|
|
my $pid = open(my $fh, "|-", @ARGV) or die;
|
|
waitpid($pid, 0) == $pid or die;
|
|
my $rc;
|
|
if ($? == 0) {
|
|
$rc = 0;
|
|
} elsif ($? >= 256) {
|
|
$rc = $? >> 8;
|
|
} else {
|
|
$rc = ($? & 127) | 128;
|
|
}
|
|
exit $rc;
|