diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2011-02-17 17:32:35 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2011-02-17 17:32:35 +0000 |
commit | 539135f1864a2356d0eb3666e0f5b335680872a4 (patch) | |
tree | 3b214294c17073dfdfbdba13b72b6fa2d10a0a6e /Master/tlpkg/tlperl/lib/Module/Build/Platform/cygwin.pm | |
parent | 227723589c9564b9b2b7042dd27eb9aad56a560a (diff) |
New tlperl part XII
git-svn-id: svn://tug.org/texlive/trunk@21434 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Module/Build/Platform/cygwin.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Module/Build/Platform/cygwin.pm | 55 |
1 files changed, 55 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/Module/Build/Platform/cygwin.pm b/Master/tlpkg/tlperl/lib/Module/Build/Platform/cygwin.pm new file mode 100644 index 00000000000..eb45b62f0e6 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/Module/Build/Platform/cygwin.pm @@ -0,0 +1,55 @@ +package Module::Build::Platform::cygwin; + +use strict; +use vars qw($VERSION); +$VERSION = '0.360301'; # patched in bleadperl +$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 M::B::Platform::Windows +# to determine if it may be a command. Otherwise we use the tests +# from M::B::Platform::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 |