diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-20 14:22:26 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-20 14:22:26 +0000 |
| commit | e62fbf8b1596dc7b3680681000f8ab69e9dc6223 (patch) | |
| tree | 911f31e8a094d332279e17d7c7cfaf343e1901ec /universal.c | |
| parent | 2c7d6b9cd25b3389315952363d5b645ced967d61 (diff) | |
| download | perl-e62fbf8b1596dc7b3680681000f8ab69e9dc6223.tar.gz | |
Nit to S_isa_lookup by Brandon Black
p4raw-id: //depot/perl@30996
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 172b3d0f8a..6999adce22 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) { + if (!basestash || (HvMROMETA(basestash)->fake && !HvFILL(basestash))) { if (ckWARN(WARN_SYNTAX)) Perl_warner(aTHX_ packWARN(WARN_SYNTAX), "Can't locate package %"SVf" for the parents of %s", |