From: Craig A. Berry <craigberry@mac.com>
Date: Fri, 4 Jun 2010 03:17:39 +0000 (-0500)
Subject: Avoid overflow warning in chop.t.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dfae30232f1b277231b0dee813acbeca0b958afd;p=p5sagit%2Fp5-mst-13.2.git

Avoid overflow warning in chop.t.

It overflows at compile time on 32-bit architectures, so the skip
isn't enough.
---

diff --git a/t/op/chop.t b/t/op/chop.t
index 36f8cad..4aa8db3 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);