diff options
| author | Benjamin Sugars <bsugars@canoe.ca> | 2001-04-23 12:59:33 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-26 17:47:26 +0000 |
| commit | 1db89ea5df5f66c75fe36cf6f250c2a633707cee (patch) | |
| tree | 29fb4ea0cd5d859584c9bb3aee0ea57d4d3b2de5 /gv.c | |
| parent | 79d09e5e72b8f20aaac9125295c3db0d623fb72d (diff) | |
| download | perl-1db89ea5df5f66c75fe36cf6f250c2a633707cee.tar.gz | |
Re: Short test case for undef %stash:: crash
Message-ID: <Pine.LNX.4.21.0104231623520.790-100000@marmot.rim.canoe.ca>
Changed and moved the perldiag entry.
p4raw-id: //depot/perl@9854
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -190,6 +190,8 @@ Perl_gv_fetchmeth(pTHX_ HV *stash, const char *name, STRLEN len, I32 level) if (!stash) return 0; + if (!HvNAME(stash)) + Perl_croak(aTHX_ "Can't use anonymous symbol table for method lookup"); if ((level > 100) || (level < -100)) Perl_croak(aTHX_ "Recursive inheritance detected while looking for method '%s' in package '%s'", name, HvNAME(stash)); |