cvs missed this in the last perl commit. Bad cvs.

1 files changed, 7 insertions, 0 deletions

diff --git a/gnu/usr.bin/perl/configpm b/gnu/usr.bin/perl/configpm
index ba07f14a878..7dedb9c6af8 100644
--- a/gnu/usr.bin/perl/configpm
+++ b/gnu/usr.bin/perl/configpm
@@ -15,6 +15,10 @@ my $glossary = $ARGV[1] || 'Porting/Glossary';
 # names of things which may need to have slashes changed to double-colons
 @extensions = qw(dynamic_ext static_ext extensions known_extensions);
 
+# name of lib paths that should be truncated on ':'
+@libpathtrunc = qw(archlib archlibexp privlib privlibexp sitearch sitearchexp
+	     sitelib sitelibexp);
+
 
 open CONFIG, ">$config_pm" or die "Can't open $config_pm: $!\n";
 $myver = $];
@@ -37,6 +41,7 @@ ENDOFBEG
 
 @fast{@fast} = @fast;
 @extensions{@extensions} = @extensions;
+@libpathtrunc{@libpathtrunc} = @libpathtrunc;
 @non_v=();
 @v_fast=();
 @v_others=();
@@ -56,6 +61,8 @@ while (<>) {
     else       { ($name,$val) = ($1,$3); }
     $in_v = $val !~ /$quote\n/;
     next if $in_v;
+    # XXX - should use PERLLIB_SEP, not hard-code ':'
+    if ($libpathtrunc{$name}) { $val =~ s/^([^:]+).*${quote}\w*$/$1${quote}/; }
     if ($extensions{$name}) { s,/,::,g }
     if (!$fast{$name}){ push(@v_others, "$name=$quote$val"); next; }
     push(@v_fast,"$name=$quote$val");