Prefer splitpath/catpath over catfile

diff --git a/Makefile.PL b/Makefile.PL
index e519c643a509e52db8813ebbeb0bf6f7a2c82cee..1af2ae870c9cb66f18790ff2bfd16ba9dc5835b9 100644 (file)
--- 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) {