Add a missing FREETMPS to match up with a SAVETMPS. This change
authorSteve Peters <steve@fisharerojo.org>
Thu, 15 Dec 2005 02:00:19 +0000 (02:00 +0000)
committerSteve Peters <steve@fisharerojo.org>
Thu, 15 Dec 2005 02:00:19 +0000 (02:00 +0000)
fixes problems with nested sorts.  (RTs #7063 and #36430).

p4raw-id: //depot/perl@26360

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. */