we no longer depend on ExtUtils::MakeMaker because it is not perl's core module. thanks Lance for reporting this issue on CentOS 6.
This commit is contained in:
parent
b40119877a
commit
c56e7e8165
|
@ -5,7 +5,6 @@ use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
|
|
||||||
use File::Spec;
|
use File::Spec;
|
||||||
use ExtUtils::MakeMaker ();
|
|
||||||
|
|
||||||
sub shell ($@);
|
sub shell ($@);
|
||||||
sub env ($$);
|
sub env ($$);
|
||||||
|
@ -614,12 +613,12 @@ sub can_run {
|
||||||
|
|
||||||
#warn "can run: @_\n";
|
#warn "can run: @_\n";
|
||||||
my $_cmd = $cmd;
|
my $_cmd = $cmd;
|
||||||
return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));
|
return $_cmd if -x $_cmd;
|
||||||
|
|
||||||
for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
|
for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
|
||||||
next if $dir eq '';
|
next if $dir eq '';
|
||||||
my $abs = File::Spec->catfile($dir, $_[0]);
|
my $abs = File::Spec->catfile($dir, $_[0]);
|
||||||
return $abs if (-x $abs or $abs = MM->maybe_command($abs));
|
return $abs if -x $abs;
|
||||||
}
|
}
|
||||||
|
|
||||||
return;
|
return;
|
||||||
|
|
Loading…
Reference in New Issue