diff options
Diffstat (limited to 'lib/ExtUtils/MM_Cygwin.pm')
| -rw-r--r-- | lib/ExtUtils/MM_Cygwin.pm | 24 |
1 files changed, 21 insertions, 3 deletions
diff --git a/lib/ExtUtils/MM_Cygwin.pm b/lib/ExtUtils/MM_Cygwin.pm index 1eaf00e1fd..a0a7d40486 100644 --- a/lib/ExtUtils/MM_Cygwin.pm +++ b/lib/ExtUtils/MM_Cygwin.pm @@ -5,11 +5,11 @@ use strict; use ExtUtils::MakeMaker::Config; use File::Spec; -require ExtUtils::MM_Any; require ExtUtils::MM_Unix; -our @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix ); +require ExtUtils::MM_Win32; +our @ISA = qw( ExtUtils::MM_Unix ); -our $VERSION = '6.50'; +our $VERSION = '6.52'; =head1 NAME @@ -98,6 +98,24 @@ sub init_linker { $self->{EXPORT_LIST} ||= ''; } +=item maybe_command + +If our path begins with F</cygdrive/> then we use C<ExtUtils::MM_Win32> +to determine if it may be a command. Otherwise we use the tests +from C<ExtUtils::MM_Unix>. + +=cut + +sub maybe_command { + my ($self, $file) = @_; + + if ($file =~ m{^/cygdrive/}i) { + return ExtUtils::MM_Win32->maybe_command($file); + } + + return $self->SUPER::maybe_command($file); +} + =back =cut |