add skipping of threads and threads::shared on default builds

[p5sagit/p5-mst-13.2.git] / pp_ctl.c

diff --git a/pp_ctl.c b/pp_ctl.c
index 8432a15..2fb4b17 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1460,7 +1460,7 @@ PP(pp_caller)
        }
        else {
            PUSHs(sv_2mortal(newSVpvn("(unknown)",9)));
-           PUSHs(sv_2mortal(newSViv(0)));
+           PUSHs(sv_2mortal(newSViv((I32)cx->blk_sub.hasargs)));
        }
     }
     else {