From: Steve Peters <steve@fisharerojo.org>
Date: Thu, 15 Dec 2005 02:00:19 +0000 (+0000)
Subject: Add a missing FREETMPS to match up with a SAVETMPS.  This change
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f7ae8051c95a2bdf42aad8ef8cbdb82f5608126f;p=p5sagit%2Fp5-mst-13.2.git

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