This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Suppress overflow warning in bop.t.
authorCraig A. Berry <craigberry@mac.com>
Thu, 10 Dec 2015 15:53:02 +0000 (09:53 -0600)
committerCraig A. Berry <craigberry@mac.com>
Thu, 10 Dec 2015 15:53:02 +0000 (09:53 -0600)
There is a constant designed to exercise the limits of a 64-bit
integer that causes an overflow when IVs are 32 bits.  The warning
happens at compile time and we don't know yet that we will never
execute the 64-bit path at run time.

t/op/bop.t

index c9bf195..14e57ba 100644 (file)
@@ -622,6 +622,7 @@ is $^A, "123", '~v0 clears vstring magic on retval';
     # not necessarily the ideal behavior, but that is what is happening.
     if ($w == 64) {
         no warnings "portable";
+        no warnings "overflow"; # prevent compile-time warning for ivsize=4
         is(-1 << 1, 0xFFFF_FFFF_FFFF_FFFE,
            "neg UV (sic) left shift  = 0xFF..E");
         is(-1 >> 1, 0x7FFF_FFFF_FFFF_FFFF,