Re: The coderef in @INC strikes back

Message-Id: <20010825145007.L41464@plum.flirble.org>

p4raw-id: //depot/perl@11742

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);
                    }