Raw integrate of latest perl

p4raw-id: //depot/ansiperl@208

1 files changed, 0 insertions, 15 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 3dfc22e254..ee60c41937 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1106,21 +1106,6 @@ PP(pp_orassign)
 	RETURNOP(cLOGOP->op_other);
 }
 	
-#ifdef DEPRECATED
-PP(pp_entersubr)
-{
-    djSP;
-    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)
 {
     djSP;