X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pp_ctl.c;h=d71544744928e848d882e2b2fe110c4e5d4aa767;hb=f970e606dd5249e7f15150b8baa7b8abd0904e24;hp=fae0cc15b91edaba4ffc939551eff059853c7b94;hpb=9cbac4c72b52b6fc0e8ad9e0050c6aa0b905a8e7;p=p5sagit%2Fp5-mst-13.2.git

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