projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
2c7d6b9
)
Nit to S_isa_lookup by Brandon Black
author
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Fri, 20 Apr 2007 14:22:26 +0000
(14:22 +0000)
committer
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Fri, 20 Apr 2007 14:22:26 +0000
(14:22 +0000)
p4raw-id: //depot/perl@30996
universal.c
patch
|
blob
|
history
diff --git
a/universal.c
b/universal.c
index
172b3d0
..
6999adc
100644
(file)
--- 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",