diff options
| author | Nicholas Clark <nick@ccl4.org> | 2001-08-25 15:50:07 +0100 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2001-08-25 13:16:02 +0000 |
| commit | e14e2dc8035bb82ccaf583f5f04cf14f72dcd147 (patch) | |
| tree | f135200fcbfb36cc0cdf5a2a9ade4851104e35ab /pp_ctl.c | |
| parent | af28e72be41e35986e36821c9cd0c6a965c950c3 (diff) | |
| download | perl-e14e2dc8035bb82ccaf583f5f04cf14f72dcd147.tar.gz | |
Re: The coderef in @INC strikes back
Message-Id: <20010825145007.L41464@plum.flirble.org>
p4raw-id: //depot/perl@11742
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -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); } |