cygwin.pm revision 1.7
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