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

File patch-t-06_tee.t.diff, 636 bytes (added by someuser12, 11 years ago)
  • t/06_tee.t

    old new  
    2828
    2929ok close($tee), "close";
    3030
    31 is_deeply [ map{ Internals::SvREFCNT($_) } $x, $y, $z ], [1, 1, 1], "(refcnt aftere closed)";
     31BEGIN{*rc = *Internals::SvREFCNT;}
     32is_deeply [ rc($x), rc($y), rc($z) ], [1, 1, 1], "(refcnt after closed)";
    3233
    3334open $tee, ">:scalar", \$x;
    3435
     
    4647
    4748ok close($tee), "close";
    4849
    49 is_deeply [ map{ Internals::SvREFCNT($_) } $x, $y, $z ], [1, 1, 1], "(refcnt aftere closed)";
     50is_deeply [ rc($x), rc($y), rc($z) ], [1, 1, 1], "(refcnt after closed)";
    5051
    5152# push filehandle
    5253