Give empty STDIN to processes so they die faster if they want input

This commit is contained in:
Your Name 2017-04-06 02:44:08 -04:00
parent 3f4f21e55e
commit 3b050e25be
3 changed files with 2 additions and 1 deletions

Binary file not shown.

View file

@ -56,7 +56,8 @@ sub run_cpanm {
my @cmd = (qw/perlbrew exec --with/, $perlbrew_env, qw|cpanm --reinstall --verbose |, $module);
my $out;
my $h = harness \@cmd, '>&', \$out, timeout(10*60); # timeout after 10 minutes
my $in='';
my $h = harness \@cmd, '<', \$in, '>&', \$out, timeout(10*60); # timeout after 10 minutes
eval {
$h->start();

Binary file not shown.