From: Gurusamy Sarathy <gsar@engin.umich.edu>
Date: Tue, 5 Aug 1997 04:12:49 +0000 (+1200)
Subject: seen_dot declaration in perl.c needed for VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1a2dec3c7845b068f26a9c2b362d52d79de0cb86;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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