diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-03-02 14:42:27 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-03-02 14:42:27 +0000 |
| commit | 9e0d86f862e086b0fde6b64ca39c85508bf50910 (patch) | |
| tree | bdbcc13f4e388616629b43018a0c457c375f8cf5 /gv.c | |
| parent | 06be3b4087230d77129ccda5ba56e0397c241c48 (diff) | |
| download | perl-9e0d86f862e086b0fde6b64ca39c85508bf50910.tar.gz | |
More assertion failures, found by auditing the code.
p4raw-id: //depot/perl@30443
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -380,7 +380,7 @@ Perl_gv_fetchmeth(pTHX_ HV *stash, const char *name, STRLEN len, I32 level) packlen -= 7; basestash = gv_stashpvn(hvname, packlen, GV_ADD); gvp = (GV**)hv_fetchs(basestash, "ISA", FALSE); - if (gvp && (gv = *gvp) != (GV*)&PL_sv_undef && (av = GvAV(gv))) { + if (gvp && (gv = *gvp) && isGV_with_GP(gv) && (av = GvAV(gv))) { gvp = (GV**)hv_fetchs(stash, "ISA", TRUE); if (!gvp || !(gv = *gvp)) Perl_croak(aTHX_ "Cannot create %s::ISA", hvname); |