Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

fix t/issue203.t $todo and comment

  • Loading branch information...
commit 0506953b9004e2a0bb3f97a979ee9eb9923ef495 1 parent 016fcfd
Reini Urban authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 t/issue203.t
4 t/issue203.t
View
@@ -15,8 +15,8 @@ use Test::More tests => 1;
use B::C ();
#my $when = "1.46";
#my $todo = ($B::C::VERSION lt $when ? "TODO " : "");
-$todo = "TODO ";
-ctestok(1,'C,-O0','ccode203i',<<'EOF',$todo.'#203 perlio layers via use open');
+my $todo = "TODO ";
+ctestok(1,'C,-O0','ccode203i',<<'EOF',$todo.'#203 restore compile-time perlio layers via use open');
use open(IN => ":crlf", OUT => ":encoding(cp1252)");
open F, "<", "/dev/null";
my %l = map {$_=>1} PerlIO::get_layers(F, input => 1);
Please sign in to comment.
Something went wrong with that request. Please try again.