diff options
| author | Craig A. Berry <craigberry@mac.com> | 2010-06-03 22:17:39 -0500 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-09-03 14:00:18 -0700 |
| commit | 558e0afd4ec40729992d42ffec33aff3aad855b1 (patch) | |
| tree | eb5e039d9b5b125effb96f4b609e8886ca15b467 | |
| parent | 3bc366b578f77ad9bcbc0ba0049e2d6e50fe9d98 (diff) | |
| download | perl-558e0afd4ec40729992d42ffec33aff3aad855b1.tar.gz | |
Avoid overflow warning in chop.t.
It overflows at compile time on 32-bit architectures, so the skip
isn't enough.
(cherry picked from commit dfae30232f1b277231b0dee813acbeca0b958afd)
| -rw-r--r-- | t/op/chop.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/t/op/chop.t b/t/op/chop.t index 83e5d710f8..1d66af9e46 100644 --- a/t/op/chop.t +++ b/t/op/chop.t @@ -253,6 +253,7 @@ foreach my $start (@chars) { is($result, "\x{80000000}", "chopping high 'unicode' - result"); SKIP: { + no warnings 'overflow'; # avoid compile-time warnings below on 32-bit architectures use Config; $Config{ivsize} >= 8 or skip("this build can't handle very large characters", 2); |