diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-01-15 11:29:47 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-01-15 11:29:47 +0000 |
| commit | ba979b3106a5e7f3b2512d1f4e93c681fba7aa9f (patch) | |
| tree | 72ee4a7f64defda57f4640e989e1e59e047f15c4 /toke.c | |
| parent | f1f8f8925a02a6ca4f9ef21b150b369edc63630d (diff) | |
| download | perl-ba979b3106a5e7f3b2512d1f4e93c681fba7aa9f.tar.gz | |
Regen embed enable slab for PERL_IMPLICIT_SYS
p4raw-id: //depot/perlio@14271
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -2180,7 +2180,7 @@ Perl_yylex(pTHX) bool bof = FALSE; /* check if there's an identifier for us to look at */ - if (PL_pending_ident) + if (PL_pending_ident) return S_pending_ident(aTHX); /* no identifier pending identification */ @@ -6668,12 +6668,12 @@ S_scan_inputsymbol(pTHX_ char *start) (void)strcpy(d,"ARGV"); /* Check whether readline() is overriden */ - if ((gv_readline = gv_fetchpv("readline", FALSE, SVt_PVCV)) - && GvCVu(gv_readline) && GvIMPORTED_CV(gv_readline) + if (((gv_readline = gv_fetchpv("readline", FALSE, SVt_PVCV)) + && GvCVu(gv_readline) && GvIMPORTED_CV(gv_readline)) || - (gvp = (GV**)hv_fetch(PL_globalstash, "readline", 8, FALSE)) + ((gvp = (GV**)hv_fetch(PL_globalstash, "readline", 8, FALSE)) && (gv_readline = *gvp) != (GV*)&PL_sv_undef - && GvCVu(gv_readline) && GvIMPORTED_CV(gv_readline)) + && GvCVu(gv_readline) && GvIMPORTED_CV(gv_readline))) readline_overriden = TRUE; /* if <$fh>, create the ops to turn the variable into a |