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] / t / base / lex.t
index fdeafb1..6a8ac61 100644 (file)
@@ -486,8 +486,9 @@ 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]
 {