diff options
| author | Gisle Aas <gisle@activestate.com> | 2006-01-11 21:09:19 +0000 |
|---|---|---|
| committer | Gisle Aas <gisle@activestate.com> | 2006-01-11 21:09:19 +0000 |
| commit | 017a3ce5a449d7513ebed2de872ff4d966fd0b43 (patch) | |
| tree | 2185e14e2c70e5f3990f7706157d76f1a61501c0 /toke.c | |
| parent | 3591879277a8c0b18a5f875cc7f9b46814925f5d (diff) | |
| download | perl-017a3ce5a449d7513ebed2de872ff4d966fd0b43.tar.gz | |
A few more places that can use hv_fetchs().
Ref change 26676.
p4raw-id: //depot/perl@26795
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -4208,7 +4208,7 @@ Perl_yylex(pTHX) else if (gv && !gvp && -tmp==KEY_lock /* XXX generalizable kludge */ && GvCVu(gv) - && !hv_fetch(GvHVn(PL_incgv), "Thread.pm", 9, FALSE)) + && !hv_fetchs(GvHVn(PL_incgv), "Thread.pm", FALSE)) { tmp = 0; /* any sub overrides "weak" keyword */ } @@ -10013,7 +10013,7 @@ S_scan_inputsymbol(pTHX_ char *start) if ((gv_readline && GvCVu(gv_readline) && GvIMPORTED_CV(gv_readline)) || - ((gvp = (GV**)hv_fetch(PL_globalstash, "readline", 8, FALSE)) + ((gvp = (GV**)hv_fetchs(PL_globalstash, "readline", FALSE)) && (gv_readline = *gvp) != (GV*)&PL_sv_undef && GvCVu(gv_readline) && GvIMPORTED_CV(gv_readline))) readline_overriden = TRUE; |