diff options
author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2013-03-03 09:18:12 +0000 |
---|---|---|
committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2013-03-03 09:18:12 +0000 |
commit | 265b802e9d45d64391dce5b985462518bc9ce514 (patch) | |
tree | c7796753a7cef83177a2cbbd5f8407ca05f551d0 /cpan/IPC-Cmd | |
parent | e8aa73ce41e760f83f0e01eed0121419b5436e8f (diff) | |
download | perl-265b802e9d45d64391dce5b985462518bc9ce514.tar.gz |
Update IPC-Cmd to CPAN version 0.80
[DELTA]
Changes for 0.80 Sat Mar 2 22:03:49 GMT 2013
=================================================
* Use File::Spec->path instead of relying on
Config (William Orr)
Diffstat (limited to 'cpan/IPC-Cmd')
-rw-r--r-- | cpan/IPC-Cmd/lib/IPC/Cmd.pm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/cpan/IPC-Cmd/lib/IPC/Cmd.pm b/cpan/IPC-Cmd/lib/IPC/Cmd.pm index 37e6d1e221..c3d18b5461 100644 --- a/cpan/IPC-Cmd/lib/IPC/Cmd.pm +++ b/cpan/IPC-Cmd/lib/IPC/Cmd.pm @@ -17,7 +17,7 @@ BEGIN { $INSTANCES $ALLOW_NULL_ARGS ]; - $VERSION = '0.78'; + $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; @@ -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. |