fix t/issue203.t $todo and comment

rurban · Feb 11, 2014 · 0506953 · 0506953
1 parent 016fcfd
commit 0506953
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/t/issue203.t b/t/issue203.t
@@ -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 ";
+my $todo = "TODO ";
-ctestok(1,'C,-O0','ccode203i',<<'EOF',$todo.'#203 perlio layers via use open');
+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);