This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade experimental from version 0.015 to 0.016
[perl5.git] / dist / ExtUtils-CBuilder / lib / ExtUtils / CBuilder / Platform / cygwin.pm
CommitLineData
6b09c160 1package ExtUtils::CBuilder::Platform::cygwin;
65b2b0d2 2$ExtUtils::CBuilder::Platform::cygwin::VERSION = '0.280223';
6b09c160
YST
3use strict;
4use File::Spec;
5use ExtUtils::CBuilder::Platform::Unix;
6
74d5bfab 7use vars qw(@ISA);
6b09c160
YST
8@ISA = qw(ExtUtils::CBuilder::Platform::Unix);
9
506098d4
DG
10# TODO: If a specific exe_file name is requested, if the exe created
11# doesn't have that name, we might want to rename it. Apparently asking
12# for an exe of "foo" might result in "foo.exe". Alternatively, we should
13# make sure the return value is correctly "foo.exe".
14# C.f http://rt.cpan.org/Public/Bug/Display.html?id=41003
6b09c160
YST
15sub link_executable {
16 my $self = shift;
6b09c160
YST
17 return $self->SUPER::link_executable(@_);
18}
19
20sub link {
21 my ($self, %args) = @_;
673223b5
DM
22
23 my $lib = $self->{config}{useshrplib} ? 'libperl.dll.a' : 'libperl.a';
6b09c160 24 $args{extra_linker_flags} = [
673223b5 25 File::Spec->catfile($self->perl_inc(), $lib),
6b09c160
YST
26 $self->split_like_shell($args{extra_linker_flags})
27 ];
28
29 return $self->SUPER::link(%args);
30}
31
321;