diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/IPC/Cmd.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/IPC/Cmd.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/tlpkg/tlperl/lib/IPC/Cmd.pm b/Master/tlpkg/tlperl/lib/IPC/Cmd.pm index 42cdd5990cb..88ed2955a9d 100644 --- a/Master/tlpkg/tlperl/lib/IPC/Cmd.pm +++ b/Master/tlpkg/tlperl/lib/IPC/Cmd.pm @@ -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'}->(); |