1package ExtUtils::CBuilder::Platform::cygwin;
2
3use warnings;
4use strict;
5use File::Spec;
6use ExtUtils::CBuilder::Platform::Unix;
7
8our $VERSION = '0.280238'; # VERSION
9our @ISA = qw(ExtUtils::CBuilder::Platform::Unix);
10
11# TODO: If a specific exe_file name is requested, if the exe created
12# doesn't have that name, we might want to rename it.  Apparently asking
13# for an exe of "foo" might result in "foo.exe".  Alternatively, we should
14# make sure the return value is correctly "foo.exe".
15# C.f http://rt.cpan.org/Public/Bug/Display.html?id=41003
16sub link_executable {
17  my $self = shift;
18  return $self->SUPER::link_executable(@_);
19}
20
21sub link {
22  my ($self, %args) = @_;
23
24  my $lib = $self->{config}{useshrplib} ? 'libperl.dll.a' : 'libperl.a';
25  $args{extra_linker_flags} = [
26    File::Spec->catfile($self->perl_inc(), $lib),
27    $self->split_like_shell($args{extra_linker_flags})
28  ];
29
30  return $self->SUPER::link(%args);
31}
32
331;
34