tweak "0x123.456" deprecation
[p5sagit/p5-mst-13.2.git] / t / comp / form_scope.t
CommitLineData
421f30ed 1#!./perl
2#
3# Tests bug #22977. Test case from Dave Mitchell.
4
5print "1..2\n";
6
7sub f ($);
8sub f ($) {
9my $test = $_[0];
10write;
11format STDOUT =
12ok @<<<<<<<
13$test
14.
15}
16
17f(1);
18f(2);