From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 7 Aug 2000 17:41:41 +0000 (+0000)
Subject: Disable a portability warning Because We Know What We Are Doing.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=68ead86506151a439ca0b6bb73647ace79ee2296;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 ";