Add a missing FREETMPS to match up with a SAVETMPS. This change

fixes problems with nested sorts.  (RTs #7063 and #36430).

p4raw-id: //depot/perl@26360

diff --git a/pp_sort.c b/pp_sort.c
index 7c8ab2f..adb0b1c 100644 (file)
--- a/pp_sort.c
+++ b/pp_sort.c
@@ -1686,6 +1686,7 @@ PP(pp_sort)
            PL_stack_sp = newsp;
            POPSTACK;
            CATCH_SET(oldcatch);
+            SAVETMPS;
        }
        else {
            MEXTEND(SP, 20);    /* Can't afford stack realloc on signal. */