I was putting tests below run_tests by mistake. When substr_thr.t is
run, the tests below run first. Any warnings they cause will make the
no warnings tests at the top of the script fail.
is ref \$x, 'REF', '\substr does not coerce its ref arg just yet';
}
-} # sub run_tests - put tests above this line that can run in threads
-
-
my $destroyed;
{ package Class; DESTROY { ++$destroyed; } }
# [perl #7678] core dump with substr reference and localisation
{$b="abcde"; local $k; *k=\substr($b, 2, 1);}
+
+} # sub run_tests - put tests above this line that can run in threads