X-Git-Url: http://git.maemo.org/git/?p=dh-make-perl;a=blobdiff_plain;f=dev%2Farm%2Flibextutils-cbuilder-perl%2Flibextutils-cbuilder-perl-0.23%2Fdebian%2Flibextutils-cbuilder-perl%2Fusr%2Fshare%2Fperl5%2FExtUtils%2FCBuilder%2FPlatform%2FUnix.pm;fp=dev%2Farm%2Flibextutils-cbuilder-perl%2Flibextutils-cbuilder-perl-0.23%2Fdebian%2Flibextutils-cbuilder-perl%2Fusr%2Fshare%2Fperl5%2FExtUtils%2FCBuilder%2FPlatform%2FUnix.pm;h=7138dff027dbfff03af48371fb2cc374f5632007;hp=0000000000000000000000000000000000000000;hb=f477fa73365d491991707e7ed9217b48d6994551;hpb=da95c414033799c3a62606f299c3c00b5c77ca11

diff --git a/dev/arm/libextutils-cbuilder-perl/libextutils-cbuilder-perl-0.23/debian/libextutils-cbuilder-perl/usr/share/perl5/ExtUtils/CBuilder/Platform/Unix.pm b/dev/arm/libextutils-cbuilder-perl/libextutils-cbuilder-perl-0.23/debian/libextutils-cbuilder-perl/usr/share/perl5/ExtUtils/CBuilder/Platform/Unix.pm
new file mode 100644
index 0000000..7138dff
--- /dev/null
+++ b/dev/arm/libextutils-cbuilder-perl/libextutils-cbuilder-perl-0.23/debian/libextutils-cbuilder-perl/usr/share/perl5/ExtUtils/CBuilder/Platform/Unix.pm
@@ -0,0 +1,37 @@
+package ExtUtils::CBuilder::Platform::Unix;
+
+use strict;
+use ExtUtils::CBuilder::Base;
+
+use vars qw($VERSION @ISA);
+$VERSION = '0.23';
+@ISA = qw(ExtUtils::CBuilder::Base);
+
+sub link_executable {
+  my $self = shift;
+  # $Config{cc} is usually a better bet for linking executables than $Config{ld}
+  local $self->{config}{ld} =
+    $self->{config}{cc} . " " . $self->{config}{ldflags};
+  return $self->SUPER::link_executable(@_);
+}
+
+sub link {
+  my $self = shift;
+  my $cf = $self->{config};
+  
+  # Some platforms (notably Mac OS X 10.3, but some others too) expect
+  # the syntax "FOO=BAR /bin/command arg arg" to work in %Config
+  # (notably $Config{ld}).  It usually works in system(SCALAR), but we
+  # use system(LIST). We fix it up here with 'env'.
+  
+  local $cf->{ld} = $cf->{ld};
+  if (ref $cf->{ld}) {
+    unshift @{$cf->{ld}}, 'env' if $cf->{ld}[0] =~ /^\s*\w+=/;
+  } else {
+    $cf->{ld} =~ s/^(\s*\w+=)/env $1/;
+  }
+  
+  return $self->SUPER::link(@_);
+}
+
+1;