This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Avoid overflow warning in chop.t.
[perl5.git] / t / op / chop.t
index 36f8cad..4aa8db3 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);