Remove #ifdef DEPRECATED stuff: newXSUB, pp_entersubr, FREE_TMPS().

[perl5.git] / pp_ctl.c

diff --git a/pp_ctl.c b/pp_ctl.c
index d4d2e2f..915ee6c 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1117,21 +1117,6 @@ PP(pp_orassign)
        RETURNOP(cLOGOP->op_other);
 }
        
-#ifdef DEPRECATED
-PP(pp_entersubr)
-{
-    dSP;
-    SV** mark = (stack_base + *markstack_ptr + 1);
-    SV* cv = *mark;
-    while (mark < sp) {        /* emulate old interface */
-       *mark = mark[1];
-       mark++;
-    }
-    *sp = cv;
-    return pp_entersub(ARGS);
-}
-#endif
-
 PP(pp_caller)
 {
     dSP;