[apple/objc4.git] / test / timeout.pl

#!/usr/bin/perl -w

use strict;

my $usage = "timeout <seconds> <command ...>\n";
my $timeout = shift || die $usage;
alarm($timeout);
exec @ARGV;
die "exec failed: @ARGV";
Commit	Line	Data
13ba007e A	1	#!/usr/bin/perl -w
	2
	3	use strict;
	4
	5	my $usage = "timeout <seconds> <command ...>\n";
	6	my $timeout = shift \|\| die $usage;
	7	alarm($timeout);
	8	exec @ARGV;
	9	die "exec failed: @ARGV";