From 970161dc7d6d13d7f924264d20b5b7d764496fcd Mon Sep 17 00:00:00 2001 From: David Golden Date: Mon, 26 Apr 2010 07:46:25 -0400 Subject: 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. --- cpan/Module-Build/lib/Module/Build/Platform/cygwin.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'cpan') 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 then we use C +# If our path begins with F then we use M::B::Platform::Windows # to determine if it may be a command. Otherwise we use the tests -# from C. +# 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); -- cgit v1.2.1