diff options
author | Nicholas Clark <nick@ccl4.org> | 2012-04-25 12:06:26 +0200 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2013-07-13 12:01:36 +0200 |
commit | 236818e0b9d9fe874831086b4d0b94dc6f245dfd (patch) | |
tree | 1a698bdce4e5aefeb56afa3b9a513f07197f079e /installperl | |
parent | be544edcaf8e3776336365b1525882f35e4ea6f3 (diff) | |
download | perl-236818e0b9d9fe874831086b4d0b94dc6f245dfd.tar.gz |
Remove dead code from installperl, related to a 5.000->5.001 change.
5.000 installed autosplit files into archlib. 5.001 and later install into
privlib. archlib is earlier in @INC. It wasn't until 5.005 that perl put the
version number into the paths used for privlib and archlib, hence without
special treatment, the files installed by 5.001 would not be found, because
those from 5.000 would be earlier in @INC.
See commit a841533b5cf319b3 (Oct 2009) which removes similar special casing
code dealing with perldiag.pod confusion between 5.003 and 5.004
All this code became redundant when 5.005 added the version number to
library paths. (strictly, commit bfb7748a896459cc in Jul 1998)
Diffstat (limited to 'installperl')
-rwxr-xr-x | installperl | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/installperl b/installperl index 60d392ec57..a3fc6f5743 100755 --- a/installperl +++ b/installperl @@ -760,14 +760,6 @@ sub installlib { } if (-f $_) { - 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 - #distribution: - #This might not work because $archname might have changed. - unlink("$installarchlib/$name"); - } my $xname = "$installlib/$name"; $xname =~ s/^\Q$opts{destdir}\E//; $packlist->{$xname} = { type => 'file' }; |