diff options
author | Father Chrysostomos <sprout@cpan.org> | 2012-10-01 15:55:54 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2012-10-01 15:56:08 -0700 |
commit | 5888debfcd08c957bbb6bd8c3ff0fe24b6347c34 (patch) | |
tree | fb88961d92f3442f6e8779879e1b854dd35e0fe0 /t | |
parent | 6964422af777c86101b18a869cf04a51f4b5bd0e (diff) | |
download | perl-5888debfcd08c957bbb6bd8c3ff0fe24b6347c34.tar.gz |
substr.t: Fix for substr_thr.t
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.
Diffstat (limited to 't')
-rw-r--r-- | t/op/substr.t | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/t/op/substr.t b/t/op/substr.t index 1b7cf31082..8abc9990a8 100644 --- a/t/op/substr.t +++ b/t/op/substr.t @@ -787,9 +787,6 @@ ok eval { 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; } } @@ -862,3 +859,5 @@ is $o::count, 1, 'assigning utf8 overload to substr lvalue calls ovld 1ce'; # [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 |