Add test for RT #123696

S02-names/strict.t

@@ -1,6 +1,6 @@
 no strict;
 use Test;
-plan 5;
+plan 6;
 
 # L<S02/"Names"/"When \"strict\" is in effect (which is the default except for one-liners)">
 
@@ -23,3 +23,9 @@ is $Foo::foo, 42, 'lax declared variable is package scoped';
 {
     is EVAL('$bar'), Any, 'lax mode propagates into EVAL blocks'
 }
+
+# RT #123696
+{
+    lives_ok { EVAL '(6;)' },
+        '"6;" no longer means "no strict;" and "(6;)" no langer results in a compile time error';
+}