From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 26 Feb 2001 00:42:07 +0000 (+0000)
Subject: Documenting coderef @INC (Re: CPAN "make this script work" feature)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e982885c7ba24a5bfd453c5e627281408fc80421;p=p5sagit%2Fp5-mst-13.2.git

Documenting coderef @INC (Re: CPAN "make this script work" feature)
Message-ID: <20010226004207.F23333@plum.flirble.org>

p4raw-id: //depot/perl@8953
---

diff --git a/pp_ctl.c b/pp_ctl.c
index fae0cc1..d715447 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3166,7 +3166,10 @@ trylocal: {
 		    PUSHs(dirsv);
 		    PUSHs(sv);
 		    PUTBACK;
-		    count = call_sv(loader, G_ARRAY);
+		    if (sv_isobject(loader))
+			count = call_method("INC", G_ARRAY);
+		    else
+			count = call_sv(loader, G_ARRAY);
 		    SPAGAIN;
 
 		    if (count > 0) {