diff options
| author | Abhijit Menon-Sen <ams@wiw.org> | 2001-06-12 18:17:04 +0530 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-12 12:52:57 +0000 |
| commit | 6676db263f08eab1c09a46739d7c3c0d2ea7f6df (patch) | |
| tree | ef7031b813cbdd0ae5c4da9d2326a999a199a8c9 /gv.c | |
| parent | 65b8483b5f20b88f3e36de22e5236706cd8b1e3b (diff) | |
| download | perl-6676db263f08eab1c09a46739d7c3c0d2ea7f6df.tar.gz | |
anonymous stashes
Message-ID: <20010612124704.A29029@lustre.linux.in>
p4raw-id: //depot/perl@10533
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 4 |
1 files changed, 1 insertions, 3 deletions
@@ -195,8 +195,6 @@ Perl_gv_fetchmeth(pTHX_ HV *stash, const char *name, STRLEN len, I32 level) 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)); @@ -1077,7 +1075,7 @@ Perl_gv_check(pTHX_ HV *stash) for (i = 0; i <= (I32) HvMAX(stash); i++) { for (entry = HvARRAY(stash)[i]; entry; entry = HeNEXT(entry)) { if (HeKEY(entry)[HeKLEN(entry)-1] == ':' && - (gv = (GV*)HeVAL(entry)) && (hv = GvHV(gv)) && HvNAME(hv)) + (gv = (GV*)HeVAL(entry)) && (hv = GvHV(gv))) { if (hv != PL_defstash && hv != stash) gv_check(hv); /* nested package */ |