diff options
author | Andy Dougherty <doughera@lafayette.edu> | 2009-08-13 16:45:26 -0400 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2009-08-13 23:40:12 +0100 |
commit | 8a240526d678f296ecb86c2b6b7a7bf0cfbaa7e9 (patch) | |
tree | 27c162f6df24406ebc5e4d8b9465647d8f03e1cb | |
parent | a3929e2d04da78f1e4fb19121feb28e87f556fb0 (diff) | |
download | perl-8a240526d678f296ecb86c2b6b7a7bf0cfbaa7e9.tar.gz |
Install arch-dependent files into $archlib.
After the great ext/ renaming, installperl stopped properly parsing the
new directory names, and hence did not properly deduce which files are
architecture-dependent. This was compounded by Configure's failure to
detect ext/IO-Compress as an architecture-dependent module. These two
patches fix both of those errors.
(cherry picked from commit 4cc80fc4cbbd82e20f7b14b68abb53d552076022)
-rwxr-xr-x | Configure | 6 | ||||
-rwxr-xr-x | installperl | 4 |
2 files changed, 10 insertions, 0 deletions
@@ -21635,6 +21635,10 @@ nonxs_extensions='' : Function to recursively find available extensions, ignoring DynaLoader : NOTE: recursion limit of 10 to prevent runaway in case of symlink madness +: In 5.10.1 and later, extensions are stored in directories +: like File-Glob instead of the older File/Glob/. In this scheme, +: IO-Compress does not appear to be an XS extension, but we want +: to install it as one. A.D. 8/2009. find_extensions=' for xxx in *; do case "$xxx" in @@ -21648,6 +21652,8 @@ find_extensions=' known_extensions="$known_extensions $this_ext"; elif $contains "\.c$" $$.tmp > /dev/null 2>&1; then known_extensions="$known_extensions $this_ext"; + elif $test "$this_ext" = "IO/Compress"; then + known_extensions="$known_extensions $this_ext"; elif $test -d $xxx; then nonxs_extensions="$nonxs_extensions $this_ext"; fi; diff --git a/installperl b/installperl index 84e8fd85c2..5eec39e8bd 100755 --- a/installperl +++ b/installperl @@ -163,6 +163,10 @@ find(sub { { my($path, $modname) = ($1,$2); + # Change hypenated name like Filter-Util-Call to nested + # directory name Filter/Util/Call + $path =~ s{-}{/}g; + # strip to optional "/lib", or remove trailing component $path =~ s{.*/lib\b}{} or $path =~ s{/[^/]*$}{}; |