Changeset 8920 for inc

Timestamp:

02/01/06 19:09:36 (3 years ago)

Author:

gaal

Message:

* inc/Module/Install/Can.pm: cygwin can have hybrid ideas about what

constitutes an executable; replace "-x" there with something that
allows us to find GHC in the path.

Files:

• inc/Module/Install/Can.pm (modified) (1 diff)

inc/Module/Install/Can.pm

@@ -26 +26 @@
 sub can_run {
     my ($self, $cmd) = @_;
+    # XXX: what to do in native win32?
+    my $mx = $^O eq 'cygwin' ?
+        sub { -x $_[0] || (-f _ && $_[0] =~ /\.(exe|com|bat)$/) } :
+        sub { -x $_[0] };
 
     my $_cmd = $cmd;
-    return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));
+    return $_cmd if ($mx->($_cmd) or $_cmd = MM->maybe_command($_cmd));
 
     for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
         my $abs = File::Spec->catfile($dir, $_[1]);
-        return $abs if (-x $abs or $abs = MM->maybe_command($abs));
+        return $abs if ($mx->($abs) or $abs = MM->maybe_command($abs));
     }