dist/ExtUtils-CBuilder/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.280201';
   9 @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
  16 sub link_executable {
  17   my $self = shift;
  18   return $self->SUPER::link_executable(@_);
  19 }
  20
  21 sub 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
  33 1;