From cdc0122e98f2421b6507acbc7231bee768f9d260 Mon Sep 17 00:00:00 2001
From: Charles Bailey <bailey@newman.upenn.edu>
Date: Wed, 9 Feb 2000 10:58:11 +0000
Subject: remove redundant archcore directory prefix in installperl

p4raw-id: //depot/vmsperl@5053
---
 installperl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'installperl')

diff --git a/installperl b/installperl
index 7c0bed7acf..00f3df1bbe 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!
-- 
cgit v1.2.1