This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
(perl #133604) fix binmode on Win32 :crlf layers
[perl5.git] / t / io / crlf.t
index aa20f0e..d0275af 100644 (file)
@@ -98,7 +98,6 @@ my $ungetc_count = 8200;    # Somewhat over the likely buffer size
         ok((() = grep($_ eq "utf8", PerlIO::get_layers($fh))),
            "check :utf8 set");
         ok(binmode($fh), "remove :utf8");
-        local $TODO = "this fails without the fix";
         ok(!(() = grep($_ eq "utf8", PerlIO::get_layers($fh))),
            "check :utf8 removed");
         close $fh;