diff options
author | David Golden <dagolden@cpan.org> | 2010-04-26 07:46:25 -0400 |
---|---|---|
committer | David Golden <dagolden@cpan.org> | 2010-04-26 07:49:31 -0400 |
commit | 970161dc7d6d13d7f924264d20b5b7d764496fcd (patch) | |
tree | e45ac7e6baf624273ee4fcdef403c52edebc1c08 | |
parent | b9e00b79e4947c49d5520633f9efd2a8e39ec14f (diff) | |
download | perl-970161dc7d6d13d7f924264d20b5b7d764496fcd.tar.gz |
Fix Module::Build::Platform::cygwin runtime error
This addresses runtime errors in Module::Build::Platform::cygwin
as reported by Jesse Vincent. The changes are backported from
the Module::Build repository and the version number has been
slightly incremented to indicate a change from the version on CPAN.
This hopefully addresses test errors in t/actions/installdeps.t, but
the error seems specific to building perl on cygwin and has not been
reported when Module::Build was tested on cygwin by CPAN Testers.
-rw-r--r-- | cpan/Module-Build/lib/Module/Build/Platform/cygwin.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/cpan/Module-Build/lib/Module/Build/Platform/cygwin.pm b/cpan/Module-Build/lib/Module/Build/Platform/cygwin.pm index 37c59ad0ce..eb45b62f0e 100644 --- a/cpan/Module-Build/lib/Module/Build/Platform/cygwin.pm +++ b/cpan/Module-Build/lib/Module/Build/Platform/cygwin.pm @@ -2,7 +2,7 @@ package Module::Build::Platform::cygwin; use strict; use vars qw($VERSION); -$VERSION = '0.3603'; +$VERSION = '0.360301'; # patched in bleadperl $VERSION = eval $VERSION; use Module::Build::Platform::Unix; @@ -14,16 +14,16 @@ sub manpage_separator { } # Copied from ExtUtils::MM_Cygwin::maybe_command() -# If our path begins with F</cygdrive/> then we use C<ExtUtils::MM_Win32> +# If our path begins with F</cygdrive/> then we use M::B::Platform::Windows # to determine if it may be a command. Otherwise we use the tests -# from C<ExtUtils::MM_Unix>. +# from M::B::Platform::Unix. sub _maybe_command { my ($self, $file) = @_; if ($file =~ m{^/cygdrive/}i) { - require Module::Build::Platform::Win32; - return Module::Build::Platform::Win32->_maybe_command($file); + require Module::Build::Platform::Windows; + return Module::Build::Platform::Windows->_maybe_command($file); } return $self->SUPER::_maybe_command($file); |