From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 28 Apr 2000 21:08:12 +0000 (+0000)
Subject: Integrate with Sarathy.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=368f1370b30d904c00b77dd19e0a1ef0ef755b31;hp=-c;p=p5sagit%2Fp5-mst-13.2.git

Integrate with Sarathy.

p4raw-id: //depot/cfgperl@6012
---

368f1370b30d904c00b77dd19e0a1ef0ef755b31
diff --combined installperl
index cd3e0a3,09ffc80..78d7ed7
--- a/installperl
+++ b/installperl
@@@ -254,9 -254,9 +254,9 @@@ else 
  mkpath("$installarchlib/CORE", 1, 0777);
  my @corefiles;
  if ($Is_VMS) {  # We did core file selection during build
-     my $coredir = "lib/$Config{'arch'}/$ver";
+     my $coredir = "lib/$Config{archname}/$ver/CORE";
      $coredir =~ tr/./_/;
-     @corefiles = map { s|^$coredir/||i; } <$coredir/*.*>;
+     map { s|^$coredir/||i; } @corefiles = <$coredir/*.*>;
  }
  else {
      # [als] hard-coded 'libperl' name... not good!
@@@ -377,7 -377,6 +377,7 @@@ if (! $versiononly) 
      safe_unlink("$installscript/pstruct$scr_ext");
      if ($^O eq 'dos' or $Is_VMS or $^O eq 'transit') {
          copy("$installscript/c2ph$scr_ext", "$installscript/pstruct$scr_ext"); 
 +	chmod(0755, "$installscript/pstruct$scr_ext");
      } else {
          link("$installscript/c2ph$scr_ext", "$installscript/pstruct$scr_ext");
      }