[perl #123955] Fix assert fail with 0 s/// in quotes

[perl5.git] / t / base / lex.t

diff --git a/t/base/lex.t b/t/base/lex.t
index 66db28b..6a8ac61 100644 (file)
--- a/t/base/lex.t
+++ b/t/base/lex.t
@@ -486,5 +486,22 @@ print "ok $test - map{sub :lvalue...}\n"; $test++;
 # Used to crash [perl #123711]
 0-5x-l{0};
 
-# Used to fail an assertion [perl #123617]
+# Used to fail an assertion [perl #123617] [perl #123955]
 eval '"$a{ 1 m// }"; //';
+eval '"@0{0s 000";eval"$"';
+
+# Pending token stack overflow [perl #123677]
+{
+ local $SIG{__WARN__}=sub{};
+ eval q|s)$0{0h());qx(@0);qx(@0);qx(@0)|;
+}
+
+# Used to crash [perl #123801]
+eval q|s##[}#e|;
+
+# Used to fail an assertion [perl #123763]
+{
+ local $SIG{__WARN__}=sub{};
+ eval q|my($_);0=split|;
+ eval q|my $_; @x = split|;
+}