From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 6 Jan 2001 01:04:09 +0000 (+0000)
Subject: IRIX compiler noticed that the bof initialization might be
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=aa7440fb47601ff018a63c772b1e8dd08a16e511;p=p5sagit%2Fp5-mst-13.2.git

IRIX compiler noticed that the bof initialization might be
bypassed by control flow.

p4raw-id: //depot/perl@8343
---

diff --git a/toke.c b/toke.c
index cde1861..e0d6f07 100644
--- a/toke.c
+++ b/toke.c
@@ -2111,6 +2111,7 @@ Perl_yylex(pTHX)
     STRLEN len;
     GV *gv = Nullgv;
     GV **gvp = 0;
+    bool bof = FALSE;
 
     /* check if there's an identifier for us to look at */
     if (PL_pending_ident) {
@@ -2531,7 +2532,7 @@ Perl_yylex(pTHX)
 	    goto retry;
 	}
 	do {
-	    bool bof = PL_rsfp ? TRUE : FALSE;
+	    bof = PL_rsfp ? TRUE : FALSE;
 	    if (bof) {
 #ifdef PERLIO_IS_STDIO
 #  ifdef __GNU_LIBRARY__