diff options
author | Jerry D. Hedden <jdhedden@cpan.org> | 2008-08-28 04:30:38 -0400 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2008-08-30 15:33:26 +0000 |
commit | 08baf5037791978029fee31617445f9736f340d1 (patch) | |
tree | 0aa450dba152cf83a871f2b4b6baca858e31fa4a /installperl | |
parent | 99d21f8bc43125eacfa8aced0256e0e27fb2201d (diff) | |
download | perl-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-x | installperl | 7 |
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 |