diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-01-06 01:04:09 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-01-06 01:04:09 +0000 |
| commit | aa7440fb47601ff018a63c772b1e8dd08a16e511 (patch) | |
| tree | 838d814833a6384a511cbd06b8c0cd9ff6e6903a /toke.c | |
| parent | 4f995af1133c713377e148b30b8c6a7a815772a3 (diff) | |
| download | perl-aa7440fb47601ff018a63c772b1e8dd08a16e511.tar.gz | |
IRIX compiler noticed that the bof initialization might be
bypassed by control flow.
p4raw-id: //depot/perl@8343
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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__ |