This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #123955] Fix assert fail with 0 s/// in quotes
[perl5.git] / toke.c
diff --git a/toke.c b/toke.c
index f7ad00d..0eeafd4 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -2381,6 +2381,7 @@ S_sublex_push(pTHX)
        popping.  We must not have a PL_lex_stuff value left dangling, as
        that breaks assumptions elsewhere.  See bug #123617.  */
     SAVEGENERICSV(PL_lex_stuff);
+    SAVEGENERICSV(PL_sublex_info.repl);
 
     PL_bufend = PL_bufptr = PL_oldbufptr = PL_oldoldbufptr = PL_linestart
        = SvPVX(PL_linestr);