my ($tests, $reports, $subtests);
BEGIN {
- $tests = 27;
- $reports = 42;
+ $tests = 28;
+ $reports = 43;
$subtests = 3;
}
my $x = meh { new $obj } new X;
----
[ 'meh', '{', 2, 9 ], [ 'new', '$obj', 2, 15 ], [ 'new', 'X', 2, 26 ]
+####
+my $x = $invalid_global_when_strict_is_on; new X;
+----
+[ 'new', 'X', 1, 44 ]