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
317 B
Perl
Executable File
22 lines
317 B
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
#
|
|
# Print exitstatus on stderr.
|
|
#
|
|
use warnings;
|
|
use strict;
|
|
|
|
my $rc = system(@ARGV);
|
|
if ($? == -1) {
|
|
die "system failed: %!\n";
|
|
}
|
|
if ($? == 0) {
|
|
$rc = 0;
|
|
} elsif ($? >= 256) {
|
|
$rc = $? >> 8;
|
|
} else {
|
|
$rc = ($? & 127) | 128;
|
|
}
|
|
print STDERR "%%% exitstatus: ${rc} %%%\n";
|
|
exit $rc;
|