Here's a patch to the recent bleadperl:
configure.com:
add a test of perly.c and vms/perly_c.vms to see if vms/vms_yfix.pl
needs to be run. The test is simple:
if perly.c has a "/* preprocessed by..." header, figure it's OK.
otherwise, compare creation date of perly.c and vms/perly_c.vms
and if perly_c.vms is older, complain.
vms/gen_shrfls.pl:
use presense of non-blank "gccversion" to flag use of GCC
compiler. Should eliminated annoying "/version" error message
that Peter mentioned.
diff -uBb configure.com-orig configure.com
--- configure.com-orig Fri Oct 27 23:50:54 2000
+++ configure.com Fri Oct 27 23:36:47 2000
@@ -677,6 +677,48 @@
$ ENDIF
$ DELETE/NOLOG/NOCONFIRM []ver.out;
$ ENDIF
+$!: check for perly/perly_c.vms generation
+$ open/read fpy [-]perly.c
+$ read fpy line
+$ close fpy
+$ match = "/* postprocessed by vms_yfix.pl"
+$ if f$extract(0,f$len(match),line) .nes. match
+$ then
+$ torig = f$cvtime(f$file("[-]perly.c","CDT"))
+$ tvms = f$cvtime(f$file("[-.vms]perly_c.vms","CDT"))
+$ if (torig .ges. tvms)
+$ then
+$ type sys$input:
+$ deck
+
+Uh oh, looks like vms/perly_c.vms wasn't updated. That sometimes
+happens with new Perl releases. If you have a working Perl already,
+you can do the update yourself with:
+
+ $ PERL vms/vms_yfix.pl
+
+after this procedure, but *before* running MMS/K. Please let the Perl
+maintainers know so that this can be avoided in subsequent releases.
+
+$ EOD
+$ dflt="n"
+$ rp="Do you really want to continue? [''dflt'] "
+$ IF (fastread) THEN fastread := FALSE
+$ GOSUB myread
+$ IF ans .EQS. "" THEN ans = dflt
+$ IF ans
+$ THEN
+$ echo4 "Okay, continuing."
+$ ELSE
+$ echo4 "Okay, bye."
+$ GOTO Clean_up
+$ ENDIF
+$ endif
+$ delete/symbol torig
+$ delete/symbol tvms
+$ endif
+$ delete/symbol line
+$ delete/symbol match
$!: general instructions
$ needman = "true"
$ firsttime = "true"
diff -uBb vms/gen_shrfls.pl-orig vms/gen_shrfls.pl
--- vms/gen_shrfls.pl-orig Fri Oct 27 23:12:18 2000
+++ vms/gen_shrfls.pl Fri Oct 27 23:11:56 2000
@@ -68,6 +68,9 @@
elsif (-f '[-]perl.h') { $dir = '[-]'; }
else { die "$0: Can't find perl.h\n"; }
+ $use_threads = $use_mymalloc = $case_about_case = $debugging_enabled = 0;
+ $hide_mymalloc = $isgcc = 0;
+
# Go see what is enabled in config.sh
$config = $dir . "config.sh";
open CONFIG, "< $config";
@@ -77,6 +80,7 @@
$care_about_case++ if /d_vms_case_sensitive_symbols='define'/;
$debugging_enabled++ if /usedebugging_perl='Y'/;
$hide_mymalloc++ if /embedmymalloc='Y'/;
+ $isgcc++ if /gccversion='[^']/;
}
close CONFIG;
@@ -93,8 +97,7 @@
# check for gcc - if present, we'll need to use MACRO hack to
# define global symbols for shared variables
- $isgcc = `$cc_cmd _nla0:/Version` =~ /GNU/
- or 0; # make debug output nice
+
print "\$isgcc: $isgcc\n" if $debug;
print "\$debugging_enabled: $debugging_enabled\n" if $debug;
--
Drexel University \V --Chuck Lane
======]---------->--------*------------<-------[===========
(215) 895-1545 _/ \ Particle Physics
FAX: (215) 895-5934 /\ /~~~~~~~~~~~ [EMAIL PROTECTED]
