Avoid overflow warning in chop.t.
authorCraig A. Berry <craigberry@mac.com>
Fri, 4 Jun 2010 03:17:39 +0000 (22:17 -0500)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 3 Sep 2011 21:00:18 +0000 (14:00 -0700)
It overflows at compile time on 32-bit architectures, so the skip
isn't enough.
(cherry picked from commit dfae30232f1b277231b0dee813acbeca0b958afd)

t/op/chop.t

index 83e5d71..1d66af9 100644 (file)
@@ -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);