summaryrefslogtreecommitdiff
path: root/installperl
diff options
context:
space:
mode:
authorJerry D. Hedden <jdhedden@cpan.org>2008-08-28 04:30:38 -0400
committerNicholas Clark <nick@ccl4.org>2008-08-30 15:33:26 +0000
commit08baf5037791978029fee31617445f9736f340d1 (patch)
tree0aa450dba152cf83a871f2b4b6baca858e31fa4a /installperl
parent99d21f8bc43125eacfa8aced0256e0e27fb2201d (diff)
downloadperl-08baf5037791978029fee31617445f9736f340d1.tar.gz
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
Diffstat (limited to 'installperl')
-rwxr-xr-xinstallperl7
1 files changed, 6 insertions, 1 deletions
diff --git a/installperl b/installperl
index f7e69b8aeb..aede39a723 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