summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/IPC/Cmd.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/IPC/Cmd.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/IPC/Cmd.pm11
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.