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:
af28e72
)
Re: The coderef in @INC strikes back
author
Nicholas Clark
<nick@ccl4.org>
Sat, 25 Aug 2001 14:50:07 +0000
(15:50 +0100)
committer
Abhijit Menon-Sen
<ams@wiw.org>
Sat, 25 Aug 2001 13:16:02 +0000
(13:16 +0000)
Message-Id: <
20010825145007
.L41464@plum.flirble.org>
p4raw-id: //depot/perl@11742
pp_ctl.c
patch
|
blob
|
history
diff --git
a/pp_ctl.c
b/pp_ctl.c
index
1605e21
..
e79d45d
100644
(file)
--- a/
pp_ctl.c
+++ b/
pp_ctl.c
@@
-3153,7
+3153,9
@@
trylocal: {
int count;
SV *loader = dirsv;
- if (SvTYPE(SvRV(loader)) == SVt_PVAV) {
+ if (SvTYPE(SvRV(loader)) == SVt_PVAV
+ && !sv_isobject(loader))
+ {
loader = *av_fetch((AV *)SvRV(loader), 0, TRUE);
}