Use builtin::reftype/refaddr in .t files

2 files changed, 6 insertions, 11 deletions

diff --git a/ext/Hash-Util-FieldHash/t/02_function.t b/ext/Hash-Util-FieldHash/t/02_function.t
index df03142bba..32c00358ef 100644
--- a/ext/Hash-Util-FieldHash/t/02_function.t
+++ b/ext/Hash-Util-FieldHash/t/02_function.t
@@ -1,5 +1,9 @@
 #!perl
-use strict; use warnings;
+
+use strict;
+use warnings;
+use builtin qw(refaddr);
+
 use Test::More;
 my $n_tests = 0;
 
@@ -104,7 +108,6 @@ BEGIN { $n_tests += 6 }
 
 ### id-action (stringification independent of bless)
 BEGIN { $n_tests += 5 }
-# use Scalar::Util qw( refaddr);
 {
     my( %f, %g, %h, %i);
     Hash::Util::FieldHash::_fieldhash \ %f, $fieldhash_mode;
@@ -305,14 +308,6 @@ 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];
-}
-
 use Symbol qw( gensym);
 
 BEGIN {
diff --git a/ext/XS-APItest/t/caller.t b/ext/XS-APItest/t/caller.t
index d7769e978a..4e6c65992b 100644
--- a/ext/XS-APItest/t/caller.t
+++ b/ext/XS-APItest/t/caller.t
@@ -2,10 +2,10 @@
 
 use warnings;
 use strict;
+use builtin qw(reftype);
 
 use Test::More;
 use XS::APItest;
-use Scalar::Util qw/reftype/;
 
 BEGIN { *my_caller = \&XS::APItest::my_caller }