tags 369481 + patch pending
thanks
On Tue, May 30, 2006 at 06:45:12AM -0500, Steve Peters wrote:
>On Tue, May 30, 2006 at 04:48:01PM +1000, [EMAIL PROTECTED] wrote:
>The problem is that Debian Perl is mispackaged. For some reason,
>various OS's are failing to distribute the file lib/auto/List/Util/Util.so
>with their Perls. This, of course, causes various things to fail.
The reason is that installperl is sticking List/Util.pm under
$installprivlib rather than $installarchlib, leading to me at least
missing the .so .
A patch for installperl follows. After applying, the following changes
occur to the keys to %archpms (path, old $modname, new):
ext/Encode/lib/Encode/CN/HZ.pm Encode/Encode/HZ
Encode/CN/HZ
ext/Encode/lib/Encode/JP/H2Z.pm Encode/Encode/H2Z
Encode/JP/H2Z
ext/Encode/lib/Encode/JP/JIS7.pm Encode/Encode/JIS7
Encode/JP/JIS7
ext/Encode/lib/Encode/KR/2022_KR.pm Encode/Encode/2022_KR
Encode/KR/2022_KR
ext/Encode/lib/Encode/MIME/Header.pm Encode/Encode/Header
Encode/MIME/Header
ext/Encode/lib/Encode/MIME/Header/ISO_2022_JP.pm
Encode/Encode/MIME/ISO_2022_JP Encode/MIME/Header/ISO_2022_JP
ext/Encode/lib/Encode/Unicode/UTF7.pm Encode/Encode/UTF7
Encode/Unicode/UTF7
ext/IO/lib/IO/Socket/INET.pm IO/IO/INET
IO/Socket/INET
ext/IO/lib/IO/Socket/UNIX.pm IO/IO/UNIX
IO/Socket/UNIX
ext/List/Util/lib/List/Util.pm List/Util/Util
List/Util
ext/List/Util/lib/Scalar/Util.pm List/Util/Util
Scalar/Util
Another, minor change ensures that the POSIX/SigAction components are
installed with the rest of the POSIX module in $installarchlib .
--bod
--- installperl.orig 2006-01-29 02:35:28.000000000 +1100
+++ installperl 2006-05-31 22:36:02.000000000 +1000
@@ -156,11 +156,8 @@
if ("$File::Find::dir/$_" =~ m{^ext\b(.*)/([^/]+)\.pm$}) {
my($path, $modname) = ($1,$2);
- # strip trailing component first
- $path =~ s{/[^/]*$}{};
-
- # strip optional "/lib";
- $path =~ s{/lib\b}{};
+ # strip to optional "/lib", or remove trailing component
+ $path =~ s{.*/lib\b}{} or $path =~ s{/[^/]*$}{};
# strip any leading /
$path =~ s{^/}{};
@@ -851,7 +848,7 @@
}
if (-f $_) {
- if (/\.(?:al|ix)$/ && !($dir =~ m[^auto/(.*)$] && $archpms{$1})) {
+ if (/\.(?:al|ix)$/ && !($dir =~ m[^auto/(.*)$])) {
$installlib = $installprivlib;
#We're installing *.al and *.ix files into $installprivlib,
#but we have to delete old *.al and *.ix files from the 5.000
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
