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 /gv.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 'gv.c')
| -rw-r--r-- | gv.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -330,7 +330,7 @@ Perl_gv_fetchmeth(pTHX_ HV *stash, const char *name, STRLEN len, I32 level) return 0; /* cache indicates sub doesn't exist */ } - gvp = (GV**)hv_fetch(stash, "ISA", 3, FALSE); + gvp = (GV**)hv_fetchs(stash, "ISA", FALSE); av = (gvp && (gv = *gvp) && gv != (GV*)&PL_sv_undef) ? GvAV(gv) : NULL; /* create and re-create @.*::SUPER::ISA on demand */ @@ -342,9 +342,9 @@ Perl_gv_fetchmeth(pTHX_ HV *stash, const char *name, STRLEN len, I32 level) packlen -= 7; basestash = gv_stashpvn(hvname, packlen, TRUE); - gvp = (GV**)hv_fetch(basestash, "ISA", 3, FALSE); + gvp = (GV**)hv_fetchs(basestash, "ISA", FALSE); if (gvp && (gv = *gvp) != (GV*)&PL_sv_undef && (av = GvAV(gv))) { - gvp = (GV**)hv_fetch(stash, "ISA", 3, TRUE); + gvp = (GV**)hv_fetchs(stash, "ISA", TRUE); if (!gvp || !(gv = *gvp)) Perl_croak(aTHX_ "Cannot create %s::ISA", hvname); if (SvTYPE(gv) != SVt_PVGV) @@ -815,7 +815,7 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags, namend++; name = namend; if (!*name) - return gv ? gv : (GV*)*hv_fetch(PL_defstash, "main::", 6, TRUE); + return gv ? gv : (GV*)*hv_fetchs(PL_defstash, "main::", TRUE); } } len = namend - name; |