diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/IPC/Cmd.pm')
| -rw-r--r-- | Master/tlpkg/tlperl/lib/IPC/Cmd.pm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/Master/tlpkg/tlperl/lib/IPC/Cmd.pm b/Master/tlpkg/tlperl/lib/IPC/Cmd.pm index 99ba7bf9886..c3d18b54617 100644 --- a/Master/tlpkg/tlperl/lib/IPC/Cmd.pm +++ b/Master/tlpkg/tlperl/lib/IPC/Cmd.pm @@ -17,7 +17,7 @@ BEGIN { $INSTANCES $ALLOW_NULL_ARGS ]; - $VERSION = '0.76'; + $VERSION = '0.80'; $VERBOSE = 0; $DEBUG = 0; $WARN = 1; @@ -212,7 +212,6 @@ sub can_run { return $command if scalar $syms->getsym( uc $command ); } - require Config; require File::Spec; require ExtUtils::MakeMaker; @@ -223,7 +222,7 @@ sub can_run { } else { for my $dir ( - (split /\Q$Config::Config{path_sep}\E/, $ENV{PATH}), + File::Spec->path, File::Spec->curdir ) { next if ! $dir || ! -d $dir; @@ -529,7 +528,7 @@ sub open3_run { # kill(-9, $$); - exit 1; + POSIX::_exit 1; } if ($got_sig_child) { @@ -1046,7 +1045,7 @@ sub run_forked { $opts->{'child_END'}->(); } - exit $child_exit_code; + POSIX::_exit $child_exit_code; } } @@ -1883,7 +1882,7 @@ special characters are escaped and passed as arguments instead of retaining their special meaning. However, if the command contained arguments that contained whitespace, -stringifying the command would loose the significance of the whitespace. +stringifying the command would lose the significance of the whitespace. Therefore, C<IPC::Cmd> will quote any arguments containing whitespace in your command if the command is passed as an arrayref and contains special characters. |