diff -Nurp PerlIO-Util-0.72-JFmyPH-orig/t/06_tee.t PerlIO-Util-0.72-JFmyPH/t/06_tee.t
--- PerlIO-Util-0.72-JFmyPH-orig/t/06_tee.t	2012-04-11 10:45:27.000000000 -0700
+++ PerlIO-Util-0.72-JFmyPH/t/06_tee.t	2012-04-11 10:55:22.000000000 -0700
@@ -28,7 +28,8 @@ is tell($tee), length($x), 'tell == leng
 
 ok close($tee), "close";
 
-is_deeply [ map{ Internals::SvREFCNT($_) } $x, $y, $z ], [1, 1, 1], "(refcnt aftere closed)";
+BEGIN{*rc = *Internals::SvREFCNT;}
+is_deeply [ rc($x), rc($y), rc($z) ], [1, 1, 1], "(refcnt aftere closed)";
 
 open $tee, ">:scalar", \$x;
 
@@ -46,7 +47,7 @@ is $z, "bar", "to z";
 
 ok close($tee), "close";
 
-is_deeply [ map{ Internals::SvREFCNT($_) } $x, $y, $z ], [1, 1, 1], "(refcnt aftere closed)";
+is_deeply [ rc($x), rc($y), rc($z) ], [1, 1, 1], "(refcnt aftere closed)";
 
 # push filehandle