This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
186bf7fde96674a6a28e76e1d7f065d3a113629f
[perl5.git] / lib / ExtUtils / CBuilder / Platform / cygwin.pm
1 package ExtUtils::CBuilder::Platform::cygwin;
2
3 use strict;
4 use File::Spec;
5 use ExtUtils::CBuilder::Platform::Unix;
6
7 use vars qw($VERSION @ISA);
8 $VERSION = '0.23';
9 @ISA = qw(ExtUtils::CBuilder::Platform::Unix);
10
11 sub link_executable {
12   my $self = shift;
13   # $Config{ld} is set up as a special script for building
14   # perl-linkable libraries.  We don't want that here.
15   local $self->{config}{ld} = 'gcc';
16   return $self->SUPER::link_executable(@_);
17 }
18
19 sub link {
20   my ($self, %args) = @_;
21
22   $args{extra_linker_flags} = [
23     File::Spec->catdir($self->perl_inc(), 'libperl.dll.a'),
24     $self->split_like_shell($args{extra_linker_flags})
25   ];
26
27   return $self->SUPER::link(%args);
28 }
29
30 1;