Change 34236 by [EMAIL PROTECTED] on 2008/08/30 15:33:26
Subject: [PATCH] Architecture-Independent Non-XS extenstions
From: "Jerry D. Hedden" <[EMAIL PROTECTED]>
Message-ID: <[EMAIL PROTECTED]>
Date: Thu, 28 Aug 2008 08:30:38 -0400
Affected files ...
... //depot/perl/installperl#162 edit
Differences ...
==== //depot/perl/installperl#162 (xtext) ====
Index: perl/installperl
--- perl/installperl#161~34235~ 2008-08-30 07:32:36.000000000 -0700
+++ perl/installperl 2008-08-30 08:33:26.000000000 -0700
@@ -153,8 +153,13 @@
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
End of Patch.
