ok
Direktori : /usr/share/perl5/vendor_perl/Module/Build/Platform/ |
Current File : //usr/share/perl5/vendor_perl/Module/Build/Platform/cygwin.pm |
package Module::Build::Platform::cygwin; use strict; use vars qw($VERSION); $VERSION = '0.4005'; $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</cygdrive/> then we use the Windows version # to determine if it may be a command. Otherwise we use the tests # from C<ExtUtils::MM_Unix>. 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<Module::Build> for the general docs. =head1 AUTHOR Initial stub by Yitzchak Scott-Thoennes <sthoenna@efn.org> =head1 SEE ALSO perl(1), Module::Build(3), ExtUtils::MakeMaker(3) =cut