From 3937c24e3f4ed26beafd7a2fbe3a20466bfc2b2d Mon Sep 17 00:00:00 2001 From: Hans Mulder Date: Thu, 3 Dec 1998 03:05:55 +0200 Subject: Initial VMS patches To: perl5-porters@perl.org, vmsperl@cor.newman.upenn.edu Message-ID: The patch to config_h.SH requires more study because metaconfig needs to agree. p4raw-id: //depot/cfgperl@2441 --- vms/gen_shrfls.pl | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) (limited to 'vms/gen_shrfls.pl') 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 () { } 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 () { 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}++; } -- cgit v1.2.1