From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 25 Aug 2001 14:50:07 +0000 (+0100)
Subject: Re: The coderef in @INC strikes back
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e14e2dc8035bb82ccaf583f5f04cf14f72dcd147;p=p5sagit%2Fp5-mst-13.2.git

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