From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 29 Oct 2001 14:49:28 +0000 (+0000)
Subject: AIX needs an explicit symbol export list.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f490490ffc7b30ee86d473fa296bc593f4db7e1f;p=p5sagit%2Fp5-mst-13.2.git

AIX needs an explicit symbol export list.

p4raw-id: //depot/perl@12767
---

diff --git a/lib/ExtUtils/Embed.t b/lib/ExtUtils/Embed.t
index 08c7cab..0cfc737 100644
--- a/lib/ExtUtils/Embed.t
+++ b/lib/ExtUtils/Embed.t
@@ -44,6 +44,14 @@ else {
 }
 push(@cmd,ldopts());
 
+if ($^O eq 'aix') { # AIX needs an explicit symbol export list.
+    my ($perl_exp) = grep { -f } qw(perl.exp ../perl.exp);
+    die "where is perl.exp?\n" unless defined $perl_exp;
+    for (@cmd) {
+        s!-bE:(\S+)!-bE:$perl_exp!;
+    }
+}
+
 print "# @cmd"; # where is the newline coming from? ldopts()?
 print "not " if system(join(' ',@cmd));
 print "ok 1\n";