git.maemo.org Git - dh-make-perl/blob - dev/arm/libextutils-cbuilder-perl/libextutils-cbuilder-perl-0.23/debian/libextutils-cbuilder-perl/usr/share/perl5/ExtUtils/CBuilder/Platform/Unix.pm

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