diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-03-02 13:23:22 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-03-02 13:23:22 +0000 |
| commit | 06be3b4087230d77129ccda5ba56e0397c241c48 (patch) | |
| tree | e4438740be1387d81019216101a5fb6aca5e60d1 /gv.c | |
| parent | 97f820fb1a463793ff94e5a914471dd9b45ed010 (diff) | |
| download | perl-06be3b4087230d77129ccda5ba56e0397c241c48.tar.gz | |
Don't crash if the symbol table entry for ISA isn't a typeglob.
p4raw-id: //depot/perl@30442
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -368,7 +368,7 @@ Perl_gv_fetchmeth(pTHX_ HV *stash, const char *name, STRLEN len, I32 level) } gvp = (GV**)hv_fetchs(stash, "ISA", FALSE); - av = (gvp && (gv = *gvp) && gv != (GV*)&PL_sv_undef) ? GvAV(gv) : NULL; + av = (gvp && (gv = *gvp) && isGV_with_GP(gv)) ? GvAV(gv) : NULL; /* create and re-create @.*::SUPER::ISA on demand */ if (!av || !SvMAGIC(av)) { |