Your IP : 216.73.216.82

Current Path : /proc/8644/root/proc/self/root/usr/share/perl/5.10/ExtUtils/CBuilder/Platform/
Upload File :
Current File : //proc/8644/root/proc/self/root/usr/share/perl/5.10/ExtUtils/CBuilder/Platform/cygwin.pm

package ExtUtils::CBuilder::Platform::cygwin;

use strict;
use File::Spec;
use ExtUtils::CBuilder::Platform::Unix;

use vars qw($VERSION @ISA);
$VERSION = '0.2602';
@ISA = qw(ExtUtils::CBuilder::Platform::Unix);

sub link_executable {
  my $self = shift;
  # $Config{ld} is okay. Circumvent the Unix ld=cc override in the superclass.
  local $self->{config}{cc} = $self->{config}{ld};
  return $self->SUPER::link_executable(@_);
}

sub link {
  my ($self, %args) = @_;

  my $lib = $self->{config}{useshrplib} ? 'libperl.dll.a' : 'libperl.a';
  $args{extra_linker_flags} = [
    File::Spec->catfile($self->perl_inc(), $lib),
    $self->split_like_shell($args{extra_linker_flags})
  ];

  return $self->SUPER::link(%args);
}

1;