From d0abe6c5e0e0a4db696c20e9f839d4a8ecaf4b54 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Fri, 8 May 1998 15:33:44 -0400 Subject: [win32] protect sortcop from C Message-Id: <199805082333.TAA06287@aatma.engin.umich.edu> Subject: [PATCH] Re: double recursion in sort p4raw-id: //depot/win32/perl@918 --- pp_ctl.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'pp_ctl.c') diff --git a/pp_ctl.c b/pp_ctl.c index c20312639f..f54bb75291 100644 --- a/pp_ctl.c +++ b/pp_ctl.c @@ -652,8 +652,9 @@ PP(pp_sort) RETPUSHUNDEF; } + ENTER; + SAVEPPTR(sortcop); if (op->op_flags & OPf_STACKED) { - ENTER; if (op->op_flags & OPf_SPECIAL) { OP *kid = cLISTOP->op_first->op_sibling; /* pass pushmark */ kid = kUNOP->op_first; /* pass rv2gv */ @@ -740,7 +741,6 @@ PP(pp_sort) POPSTACK(); CATCH_SET(oldcatch); } - LEAVE; } else { if (max > 1) { @@ -749,6 +749,7 @@ PP(pp_sort) (op->op_private & OPpLOCALE) ? sv_cmp_locale : sv_cmp); } } + LEAVE; stack_sp = ORIGMARK + max; return nextop; } -- cgit v1.2.1