From: Charles Bailey <bailey@newman.upenn.edu>
Date: Wed, 9 Feb 2000 10:58:11 +0000 (+0000)
Subject: remove redundant archcore directory prefix in installperl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cdc0122e98f2421b6507acbc7231bee768f9d260;p=p5sagit%2Fp5-mst-13.2.git

remove redundant archcore directory prefix in installperl

p4raw-id: //depot/vmsperl@5053
---

diff --git a/installperl b/installperl
index 7c0bed7..00f3df1 100755
--- a/installperl
+++ b/installperl
@@ -239,7 +239,7 @@ my @corefiles;
 if ($Is_VMS) {  # We did core file selection during build
     my $coredir = "lib/$Config{'arch'}/$ver";
     $coredir =~ tr/./_/;
-    @corefiles = <$coredir/*.*>;
+    @corefiles = map { s|^$coredir/||i; } <$coredir/*.*>;
 }
 else {
     # [als] hard-coded 'libperl' name... not good!