[perl #33928] chomp() fails after alarm(), `sleep`

PP_backtick's temp altering of PL_rs didn't restore after
an exception

p4raw-id: //depot/perl@23898

1 files changed, 3 insertions, 2 deletions

diff --git a/pp_sys.c b/pp_sys.c
index 0bb716554f..bb843e194a 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -345,13 +345,14 @@ PP(pp_backtick)
 		;
 	}
 	else if (gimme == G_SCALAR) {
-	    SV *oldrs = PL_rs;
+	    ENTER;
+	    SAVESPTR(PL_rs);
 	    PL_rs = &PL_sv_undef;
 	    sv_setpv(TARG, "");	/* note that this preserves previous buffer */
 	    while (sv_gets(TARG, fp, SvCUR(TARG)) != Nullch)
 		/*SUPPRESS 530*/
 		;
-	    PL_rs = oldrs;
+	    LEAVE;
 	    XPUSHs(TARG);
 	    SvTAINTED_on(TARG);
 	}