Disable a portability warning Because We Know What We Are Doing.

p4raw-id: //depot/perl@6542

diff --git a/t/op/bless.t b/t/op/bless.t
index 3d5d85d..7e7de4f 100644 (file)
--- a/t/op/bless.t
+++ b/t/op/bless.t
@@ -13,7 +13,8 @@ sub expected {
        ref($object) eq $package
        && "$object" =~ /^\Q$package\E=(\w+)\(0x([0-9a-f]+)\)$/
        && $1 eq $type
-       && hex($2) == $object
+       # in 64-bit platforms hex warns for 32+ -bit values
+       && do { no warnings 'portable'; hex($2) == $object }
     );
     print "# $object $package $type\n";
     return "not ";