use warnings;
use Carp qw/croak/;
+use Config qw/%Config/;
use Cwd qw/cwd/;
use File::Spec::Functions qw/catfile path/;
use List::Util qw/first/;
}
}
+setpgrp 0, 0 if $Config{d_setpgrp};
+
my $cmd = first { !/^-/ } @ARGV;
$cmd = ' ' unless defined $cmd;