From e982885c7ba24a5bfd453c5e627281408fc80421 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Mon, 26 Feb 2001 00:42:07 +0000 Subject: Documenting coderef @INC (Re: CPAN "make this script work" feature) Message-ID: <20010226004207.F23333@plum.flirble.org> p4raw-id: //depot/perl@8953 --- pp_ctl.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'pp_ctl.c') diff --git a/pp_ctl.c b/pp_ctl.c index fae0cc15b9..d715447449 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) { -- cgit v1.2.1