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