web/server/h2o/libh2o/t/00unit/assets/read_command.pl


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);