1 files changed, 2 insertions, 1 deletions
diff --git a/t/op/bless.t b/t/op/bless.t
index 3d5d85d01b..7e7de4f724 100644
--- 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 ";