summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Golden <dagolden@cpan.org>2010-04-26 07:46:25 -0400
committerDavid Golden <dagolden@cpan.org>2010-04-26 07:49:31 -0400
commit970161dc7d6d13d7f924264d20b5b7d764496fcd (patch)
treee45ac7e6baf624273ee4fcdef403c52edebc1c08
parentb9e00b79e4947c49d5520633f9efd2a8e39ec14f (diff)
downloadperl-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.pm10
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);