1 package ExtUtils::CBuilder::Platform::cygwin;
5 use ExtUtils::CBuilder::Platform::Unix;
7 use vars qw($VERSION @ISA);
9 @ISA = qw(ExtUtils::CBuilder::Platform::Unix);
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
18 return $self->SUPER::link_executable(@_);
22 my ($self, %args) = @_;
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})
30 return $self->SUPER::link(%args);