Initial VMS patches

To: perl5-porters@perl.org, vmsperl@cor.newman.upenn.edu
Message-ID: <MLIST_3.0.6.32.19981202141057.0339a7f0@ous.edu>

The patch to config_h.SH requires more study because
metaconfig needs to agree.

p4raw-id: //depot/cfgperl@2441

1 files changed, 8 insertions, 3 deletions

diff --git a/vms/gen_shrfls.pl b/vms/gen_shrfls.pl
index 750abb0a66..f6906c51c9 100644
--- a/vms/gen_shrfls.pl
+++ b/vms/gen_shrfls.pl
@@ -262,18 +262,23 @@ LINE: while (<CPP>) {
 }
 close CPP;
 
-
+# This was:
 # Kluge to determine whether we need to add EMBED prefix to
 # symbols read from local list.  vmsreaddirversions() is a VMS-
 # specific function whose Perl_ prefix is added in vmsish.h
 # if EMBED is #defined.
-$embed = exists($fcns{'Perl_vmsreaddirversions'}) ? 'Perl_' : '';
+#
+# but now we always define EMBED, so it's not a big deal any more
 while (<DATA>) {
   next if /^#/;
   s/\s+#.*\n//;
   next if /^\s*$/;
   ($key,$array) = split('=',$_);
-  $key = "$embed$key";
+  if ($array eq 'vars') {
+      $key = "PL_$key";
+  } else {
+      $key = "Perl_$key";
+  }
   print "Adding $key to \%$array list\n" if $debug > 1;
   ${$array}{$key}++;
 }