X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/79a8d5295c08d08001ca69256d5a990d05ee1556..3366dfc64be644770fc494fbe1514173c88fca77:/pp_sort.c?ds=sidebyside

diff --git a/pp_sort.c b/pp_sort.c
index f1ec82a..f96d568 100644
--- a/pp_sort.c
+++ b/pp_sort.c
@@ -1679,6 +1679,9 @@ PP(pp_sort)
 
 	    if (!(flags & OPf_SPECIAL)) {
 		SV *sv;
+		/* Reset cx, in case the context stack has been
+		   reallocated. */
+		cx = &cxstack[cxstack_ix];
 		POPSUB(cx, sv);
 		LEAVESUB(sv);
 	    }