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 /universal.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 'universal.c')
| -rw-r--r-- | universal.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/universal.c b/universal.c index 9e9b2235b6..097247b5f1 100644 --- a/universal.c +++ b/universal.c @@ -60,7 +60,7 @@ S_isa_lookup(pTHX_ HV *stash, const char *name, HV* name_stash, Perl_croak(aTHX_ "Recursive inheritance detected in package '%s'", hvname); - gvp = (GV**)hv_fetch(stash, "::ISA::CACHE::", 14, FALSE); + gvp = (GV**)hv_fetchs(stash, "::ISA::CACHE::", FALSE); if (gvp && (gv = *gvp) != (GV*)&PL_sv_undef && (subgen = GvSV(gv)) && (hv = GvHV(gv))) @@ -82,11 +82,11 @@ S_isa_lookup(pTHX_ HV *stash, const char *name, HV* name_stash, } } - gvp = (GV**)hv_fetch(stash,"ISA",3,FALSE); + gvp = (GV**)hv_fetchs(stash, "ISA", FALSE); if (gvp && (gv = *gvp) != (GV*)&PL_sv_undef && (av = GvAV(gv))) { if (!hv || !subgen) { - gvp = (GV**)hv_fetch(stash, "::ISA::CACHE::", 14, TRUE); + gvp = (GV**)hv_fetchs(stash, "::ISA::CACHE::", TRUE); gv = *gvp; @@ -342,7 +342,7 @@ XS(XS_UNIVERSAL_VERSION) pkg = gv_stashsv(ST(0), FALSE); } - gvp = pkg ? (GV**)hv_fetch(pkg,"VERSION",7,FALSE) : Null(GV**); + gvp = pkg ? (GV**)hv_fetchs(pkg, "VERSION", FALSE) : Null(GV**); if (gvp && isGV(gv = *gvp) && (sv = GvSV(gv)) && SvOK(sv)) { SV * const nsv = sv_newmortal(); |