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 (file)
--- 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__