This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Localise PL_lex_stuff (crash fix)
[perl5.git] / t / base / lex.t
index f938168..66db28b 100644 (file)
@@ -485,3 +485,6 @@ print "ok $test - map{sub :lvalue...}\n"; $test++;
 
 # Used to crash [perl #123711]
 0-5x-l{0};
+
+# Used to fail an assertion [perl #123617]
+eval '"$a{ 1 m// }"; //';