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 (file)
--- 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) {