blob: b24f1bc87535a62f24cdb7f5da23e9a196545831 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
#! /bin/sh
exec perl -x $0 "$@"
#! perl
use strict;
use warnings;
die "expected one arg"
unless @ARGV == 1;
print $ARGV[0];
exit($ENV{READ_COMMAND_EXIT_STATUS} || 0);
|