This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #78550] Fix bad assertion in toke.c:start_subparse
[perl5.git] / t / comp / form_scope.t
index 809e0d2..f10637f 100644 (file)
@@ -118,6 +118,12 @@ undef &x;
   print "ok 9 - closure var not available when outer sub is undefined\n";
 }
 
+format start_subparse::assertion =
+@
+sub { }
+.
+# survived; no "print ok" necessary
+
 # This is a variation of bug #22977, which crashes or fails an assertion
 # up to 5.16.
 # Keep this test last if you want test numbers to be sane.