This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
warning from ext/Hash/Util/FieldHash/t/02_function.t
authorPeter Dintelmann <Peter.Dintelmann@Dresdner-Bank.com>
Wed, 24 Oct 2007 12:31:20 +0000 (14:31 +0200)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 24 Oct 2007 11:15:03 +0000 (11:15 +0000)
From: "Dintelmann, Peter" <Peter.Dintelmann@Dresdner-Bank.com>
Message-ID: <3852726AFA94DE4F87E616F13F416A5FB66DE3@naimucu1.ffz00k.rootdom.net>

p4raw-id: //depot/perl@32185

ext/Hash/Util/FieldHash/t/02_function.t

index 6365289..738209c 100644 (file)
@@ -122,7 +122,7 @@ BEGIN { $n_tests += 5 }
     $f{ $key} = $val;
     is( $f{ $key}, $val, "plain key set in field");
     my ( $id) = keys %f;
-    my $refaddr = hex +($key =~ /\(0x([[:xdigit:]]+)\)$/)[ 0];
+    my $refaddr = refaddr($key);
     is $id, $refaddr, "key is refaddr";
     bless $key;
     is( $f{ $key}, $val, "access through blessed");
@@ -314,6 +314,9 @@ BEGIN { plan tests => $n_tests }
 #######################################################################
 
 sub refaddr {
+    # silence possible warnings from hex() on 64bit systems
+    no warnings 'portable';
+
     my $ref = shift;
     hex +($ref =~ /\(0x([[:xdigit:]]+)\)$/)[ 0];
 }