This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Module-Build to CPAN version 0.4008
[perl5.git] / cpan / Module-Build / lib / Module / Build / Platform / cygwin.pm
CommitLineData
bb4e9162
YST
1package Module::Build::Platform::cygwin;
2
3use strict;
7a827510 4use vars qw($VERSION);
6e4bdc3f 5$VERSION = '0.4008';
7a827510 6$VERSION = eval $VERSION;
bb4e9162
YST
7use Module::Build::Platform::Unix;
8
9use vars qw(@ISA);
10@ISA = qw(Module::Build::Platform::Unix);
11
12sub manpage_separator {
13 '.'
14}
15
613f422f 16# Copied from ExtUtils::MM_Cygwin::maybe_command()
7cf8bfc0 17# If our path begins with F</cygdrive/> then we use the Windows version
613f422f 18# to determine if it may be a command. Otherwise we use the tests
40c9afb2 19# from C<ExtUtils::MM_Unix>.
613f422f
DG
20
21sub _maybe_command {
22 my ($self, $file) = @_;
23
24 if ($file =~ m{^/cygdrive/}i) {
7cf8bfc0
DG
25 require Module::Build::Platform::Windows;
26 return Module::Build::Platform::Windows->_maybe_command($file);
613f422f
DG
27 }
28
29 return $self->SUPER::_maybe_command($file);
30}
31
bb4e9162
YST
321;
33__END__
34
35
36=head1 NAME
37
38Module::Build::Platform::cygwin - Builder class for Cygwin platform
39
40=head1 DESCRIPTION
41
42This module provides some routines very specific to the cygwin
43platform.
44
45Please see the L<Module::Build> for the general docs.
46
47=head1 AUTHOR
48
49Initial stub by Yitzchak Scott-Thoennes <sthoenna@efn.org>
50
51=head1 SEE ALSO
52
53perl(1), Module::Build(3), ExtUtils::MakeMaker(3)
54
55=cut