package Module::Build::Platform::cygwin; use strict; use vars qw($VERSION); $VERSION = '0.4205'; $VERSION = eval $VERSION; use Module::Build::Platform::Unix; use vars qw(@ISA); @ISA = qw(Module::Build::Platform::Unix); sub manpage_separator { '.' } # Copied from ExtUtils::MM_Cygwin::maybe_command() # If our path begins with F then we use the Windows version # to determine if it may be a command. Otherwise we use the tests # from C. sub _maybe_command { my ($self, $file) = @_; if ($file =~ m{^/cygdrive/}i) { require Module::Build::Platform::Windows; return Module::Build::Platform::Windows->_maybe_command($file); } return $self->SUPER::_maybe_command($file); } 1; __END__ =head1 NAME Module::Build::Platform::cygwin - Builder class for Cygwin platform =head1 DESCRIPTION This module provides some routines very specific to the cygwin platform. Please see the L for the general docs. =head1 AUTHOR Initial stub by Yitzchak Scott-Thoennes =head1 SEE ALSO perl(1), Module::Build(3), ExtUtils::MakeMaker(3) =cut