From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Thu, 28 Aug 2008 08:30:38 +0000 (-0400)
Subject: Architecture-Independent Non-XS extenstions
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=08baf5037791978029fee31617445f9736f340d1;p=p5sagit%2Fp5-mst-13.2.git

Architecture-Independent Non-XS extenstions
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510808280530ue0e3140q7e4ce71d5f395cc9@mail.gmail.com>
Date: Thu, 28 Aug 2008 08:30:38 -0400

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

diff --git a/installperl b/installperl
index f7e69b8..aede39a 100755
--- a/installperl
+++ b/installperl
@@ -153,8 +153,13 @@ if ((-e "testcompile") && (defined($ENV{'COMPILE'}))) {
     push(@scripts, map("$_.exe", @scripts));
 }
 
+# Exclude nonxs extensions that are not architecture dependent
+my @nonxs = grep(!/^Errno$/, split(' ', $Config{'nonxs_ext'}));
+
 find(sub {
-    if ("$File::Find::dir/$_" =~ m{^ext\b(.*)/([^/]+)\.pm$}) {
+    if (($File::Find::name =~ m{^ext\b(.*)/([^/]+)\.pm$}) &&
+        ! grep { $File::Find::name =~ /^ext\/$_/ } @nonxs)
+    {
 	my($path, $modname) = ($1,$2);
 
 	# strip to optional "/lib", or remove trailing component