On Sat, 28 Oct 2000, Charles Lane wrote:
> 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.
Many thanks.
> 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
Could you please use the idiom?:
$ open/read CONFIG [-]perly.c
$ read CONFIG line
$ close CONFIG
note that there is some cleanup code at the bottom of configure.com
that tries to determine if there are any remaining open files and
will C<$ close CONFIG> if it thinks that there are, but that code does
not know about c<$ close fpy>. Thanks.
> +$ 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.
I pity the poor user who does not have perl previously installed on VMS
and receives this message ("Do you mean I have to have Perl installed
in order to install Perl?")
Peter Prymmer
