This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #22977] Bug in format/write
[perl5.git] / t / comp / form_scope.t
1 #!./perl
2 #
3 # Tests bug #22977.  Test case from Dave Mitchell.
4
5 print "1..2\n";
6
7 sub f ($);
8 sub f ($) {
9 my $test = $_[0];
10 write;
11 format STDOUT =
12 ok @<<<<<<<
13 $test
14 .
15 }
16
17 f(1);
18 f(2);