fix a location affected by change#2191, add note about POPSTACK

p4raw-link: @2191 on //depot/perl: de616352556f5da70790ceef0ca8b92726d7761a

p4raw-id: //depot/perl@2196

1 files changed, 1 insertions, 0 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index c9ccb3ae1f..0f02c662e9 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -911,6 +911,7 @@ PP(pp_sort)
 	    qsortsv((myorigmark+1), max, FUNC_NAME_TO_PTR(sortcv));
 
 	    POPBLOCK(cx,PL_curpm);
+	    PL_stack_sp = newsp;
 	    POPSTACK;
 	    CATCH_SET(oldcatch);
 	}