mirror of
https://github.com/Perl/perl5.git
synced 2026-01-26 08:38:23 +00:00
Update IPC-Cmd to CPAN version 1.04
[DELTA] 1.04 Sat Jul 13 10:08:08 BST 2019 Bug fixes: - Fixed usage of setsid()
This commit is contained in:
parent
86b50d930c
commit
dc9ac3ee56
@ -643,7 +643,7 @@ use File::Glob qw(:case);
|
||||
},
|
||||
|
||||
'IPC::Cmd' => {
|
||||
'DISTRIBUTION' => 'BINGOS/IPC-Cmd-1.02.tar.gz',
|
||||
'DISTRIBUTION' => 'BINGOS/IPC-Cmd-1.04.tar.gz',
|
||||
'FILES' => q[cpan/IPC-Cmd],
|
||||
},
|
||||
|
||||
|
||||
@ -19,7 +19,7 @@ BEGIN {
|
||||
$HAVE_MONOTONIC
|
||||
];
|
||||
|
||||
$VERSION = '1.02';
|
||||
$VERSION = '1.04';
|
||||
$VERBOSE = 0;
|
||||
$DEBUG = 0;
|
||||
$WARN = 1;
|
||||
@ -1204,7 +1204,7 @@ sub run_forked {
|
||||
# which do setsid theirselves -- can't do anything
|
||||
# with those)
|
||||
|
||||
POSIX::setsid() || Carp::confess("Error running setsid: " . $!);
|
||||
POSIX::setsid() == -1 and Carp::confess("Error running setsid: " . $!);
|
||||
|
||||
if ($opts->{'child_BEGIN'} && ref($opts->{'child_BEGIN'}) eq 'CODE') {
|
||||
$opts->{'child_BEGIN'}->();
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user