This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
dcd0562277df25cfaf5fc771e82758f7e4e7a60a
[perl5.git] / dist / ExtUtils-CBuilder / lib / ExtUtils / CBuilder / Platform / Unix.pm
1 package ExtUtils::CBuilder::Platform::Unix;
2 $ExtUtils::CBuilder::Platform::Unix::VERSION = '0.280223';
3 use strict;
4 use ExtUtils::CBuilder::Base;
5
6 use vars qw(@ISA);
7 @ISA = qw(ExtUtils::CBuilder::Base);
8
9 sub link_executable {
10   my $self = shift;
11
12   # On some platforms (which ones??) $Config{cc} seems to be a better
13   # bet for linking executables than $Config{ld}.  Cygwin is a notable
14   # exception.
15   local $self->{config}{ld} =
16     $self->{config}{cc} . " " . $self->{config}{ldflags};
17   return $self->SUPER::link_executable(@_);
18 }
19
20 sub link {
21   my $self = shift;
22   my $cf = $self->{config};
23   
24   # Some platforms (notably Mac OS X 10.3, but some others too) expect
25   # the syntax "FOO=BAR /bin/command arg arg" to work in %Config
26   # (notably $Config{ld}).  It usually works in system(SCALAR), but we
27   # use system(LIST). We fix it up here with 'env'.
28   
29   local $cf->{ld} = $cf->{ld};
30   if (ref $cf->{ld}) {
31     unshift @{$cf->{ld}}, 'env' if $cf->{ld}[0] =~ /^\s*\w+=/;
32   } else {
33     $cf->{ld} =~ s/^(\s*\w+=)/env $1/;
34   }
35   
36   return $self->SUPER::link(@_);
37 }
38
39 1;