diff options
| author | Brandon Black <blblack@gmail.com> | 2007-04-29 12:27:03 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-30 09:22:58 +0000 |
| commit | dd69841bebe1fc7f7a6b248576221520a0418d52 (patch) | |
| tree | 03f70519210b8c576d1dde888623afef3e9882ba /universal.c | |
| parent | 49d7dfbcef7527d25e8c34643f831ef2416923a3 (diff) | |
| download | perl-dd69841bebe1fc7f7a6b248576221520a0418d52.tar.gz | |
Re: mro status, etc
From: "Brandon Black" <blblack@gmail.com>
Message-ID: <84621a60704291527y1b39be37l221ef66e4c828f66@mail.gmail.com>
p4raw-id: //depot/perl@31107
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/universal.c b/universal.c index ea901daba6..9b0e12b2e8 100644 --- a/universal.c +++ b/universal.c @@ -62,7 +62,7 @@ S_isa_lookup(pTHX_ HV *stash, const char *name, const HV* const name_stash, while (items--) { SV* const basename_sv = *svp++; HV* basestash = gv_stashsv(basename_sv, 0); - if (!basestash || (HvMROMETA(basestash)->fake && !HvFILL(basestash))) { + if (!basestash) { if (ckWARN(WARN_SYNTAX)) Perl_warner(aTHX_ packWARN(WARN_SYNTAX), "Can't locate package %"SVf" for the parents of %s", |