diff options
Diffstat (limited to 'inc/Module/Install/Can.pm')
-rw-r--r-- | inc/Module/Install/Can.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/inc/Module/Install/Can.pm b/inc/Module/Install/Can.pm index ec66fdb..9025607 100644 --- a/inc/Module/Install/Can.pm +++ b/inc/Module/Install/Can.pm @@ -11,7 +11,7 @@ use ExtUtils::MakeMaker (); use vars qw{$VERSION $ISCORE @ISA}; BEGIN { - $VERSION = '0.68'; + $VERSION = '0.77'; $ISCORE = 1; @ISA = qw{Module::Install::Base}; } @@ -39,6 +39,7 @@ sub can_run { return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd)); for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') { + next if $dir eq ''; my $abs = File::Spec->catfile($dir, $_[1]); return $abs if (-x $abs or $abs = MM->maybe_command($abs)); } @@ -79,4 +80,4 @@ if ( $^O eq 'cygwin' ) { __END__ -#line 157 +#line 158 |