X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScalar-Vec-Util.git;a=blobdiff_plain;f=Makefile.PL;fp=Makefile.PL;h=1af2ae870c9cb66f18790ff2bfd16ba9dc5835b9;hp=e519c643a509e52db8813ebbeb0bf6f7a2c82cee;hb=f04b35b97b754cddb0e780e41cf4be57a65963b8;hpb=3dc124b585a4104cb5b4d0723fd62fac2e45b2c0

diff --git a/Makefile.PL b/Makefile.PL
index e519c64..1af2ae8 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -16,7 +16,11 @@ sub validate_exe {
   @candidates = $name;
  } else {
   (my $base, @args) = split ' ', $name;
-  @candidates = map File::Spec->catfile($_, $base), File::Spec->path;
+  for my $path_entry (File::Spec->path) {
+   my ($vol, $dir, $file) = File::Spec->splitpath($path_entry, 1);
+   next if defined $file and length $file;
+   push @candidates, File::Spec->catpath($vol, $dir, $base);
+  }
  }
 
  for my $path (@candidates) {