[p5sagit/p5-mst-13.2.git] / lib / 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.12';
@ISA = qw(ExtUtils::CBuilder::Platform::Unix);

sub link_executable {
  my $self = shift;
  # $Config{ld} is set up as a special script for building
  # perl-linkable libraries.  We don't want that here.
  local $self->{config}{ld} = 'gcc';
  return $self->SUPER::link_executable(@_);
}

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

  $args{extra_linker_flags} = [
    File::Spec->catdir($self->perl_inc(), 'libperl.dll.a'),
    $self->split_like_shell($args{extra_linker_flags})
  ];

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

1;
Commit	Line	Data
6b09c160	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);
345dbb93	8	$VERSION = '0.12';
6b09c160	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;