Ticket #42618: patch-t-06_tee.t.diff

t/06_tee.t

@@ -28 +28 @@
 
 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 +47 @@
 
 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