seen_dot declaration in perl.c needed for VMS

On Thu, 07 Aug 1997 13:04:38 -0000, Brad Hughes wrote:
>I'm not sure this is your bailiwick or not:
>
>After applying perl5_004m2t3 patch, perl.c compile dies with
>
>CC /Define=(DEBUGGING)/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=.obj/No
>List PERL.C
>
>        if (!xfound && !seen_dot && !xfailed && (Stat(scriptname,&statbuf) < 0
>))
>........................^
>%CC-E-UNDECLARED, In this statement, "seen_dot" is not declared.
>at line number 1796 in file PERL_ROOT:[PERL5_004_01_03]PERL.C;2
>
>C<seen_dot> is not declared in C<#ifdef VMS> code.

Here's a patch.  Hope this will go in 4_02 (if it works).  Note
this just effectively disables the "'.' in PATH" addition to
the message on VMS.  I don't know enough VMS to do anything
else :)

p5p-msgid: 199708072033.QAA09167@aatma.engin.umich.edu

diff --git a/perl.c b/perl.c
index 11fb462..c52f2cc 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -1669,6 +1669,7 @@ SV *sv;
 #ifdef VMS
     if (dosearch) {
        int hasdir, idx = 0, deftypes = 1;
+       bool seen_dot = 1;
 
        hasdir = (strpbrk(scriptname,":[</") != Nullch) ;
        /* The first time through, just add SEARCH_EXTS to whatever we