--- t/06_tee.t.orig	2011-05-25 16:04:41.000000000 +0200
+++ t/06_tee.t	2014-02-25 15:19:25.000000000 +0100
@@ -28,7 +28,8 @@
 
 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 after closed)";
 
 open $tee, ">:scalar", \$x;
 
@@ -46,7 +47,7 @@
 
 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 after closed)"; 
 
 # push filehandle