[Summary view] [Print] [Text view]

   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.21';
   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;