This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
259fbc688ddfac508fa60d471a0700927a674c59
[perl5.git] / dist / ExtUtils-CBuilder / lib / ExtUtils / CBuilder / Platform / cygwin.pm
1 package ExtUtils::CBuilder::Platform::cygwin;
2 $ExtUtils::CBuilder::Platform::cygwin::VERSION = '0.280223';
3 use strict;
4 use File::Spec;
5 use ExtUtils::CBuilder::Platform::Unix;
6
7 use vars qw(@ISA);
8 @ISA = qw(ExtUtils::CBuilder::Platform::Unix);
9
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
15 sub link_executable {
16   my $self = shift;
17   return $self->SUPER::link_executable(@_);
18 }
19
20 sub link {
21   my ($self, %args) = @_;
22
23   my $lib = $self->{config}{useshrplib} ? 'libperl.dll.a' : 'libperl.a';
24   $args{extra_linker_flags} = [
25     File::Spec->catfile($self->perl_inc(), $lib),
26     $self->split_like_shell($args{extra_linker_flags})
27   ];
28
29   return $self->SUPER::link(%args);
30 }
31
32 1;