Change 29410 by [EMAIL PROTECTED] on 2006/11/28 16:43:17
Fix IPC-Cmd test failure on Win32: check current directory as well
as those listed in $ENV{PATH} when searching for binaries
Affected files ...
... //depot/perl/lib/IPC/Cmd.pm#2 edit
Differences ...
==== //depot/perl/lib/IPC/Cmd.pm#2 (text) ====
Index: perl/lib/IPC/Cmd.pm
--- perl/lib/IPC/Cmd.pm#1~29401~ 2006-11-28 02:45:06.000000000 -0800
+++ perl/lib/IPC/Cmd.pm 2006-11-28 08:43:17.000000000 -0800
@@ -13,7 +13,7 @@
$USE_IPC_RUN $USE_IPC_OPEN3 $WARN
];
- $VERSION = '0.36';
+ $VERSION = '0.36_01';
$VERBOSE = 0;
$DEBUG = 0;
$WARN = 1;
@@ -186,7 +186,9 @@
return MM->maybe_command($command);
} else {
- for my $dir (split /\Q$Config::Config{path_sep}\E/, $ENV{PATH}) {
+ for my $dir ((split /\Q$Config::Config{path_sep}\E/, $ENV{PATH}),
+ File::Spec->curdir()
+ ) {
my $abs = File::Spec->catfile($dir, $command);
return $abs if $abs = MM->maybe_command($abs);
}
End of Patch.
