This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
First "eof" should return true
[perl5.git] / t / io / tell.t
index 30adafb..ba106f0 100644 (file)
@@ -189,7 +189,6 @@ seek *$fh,0,0;
 is(tell, 0, "argless tell after seek *\$coercible...");
 
 {
-    local $TODO = "not fixed yet";
     # [perl #133721]
     fresh_perl_is(<<'EOI', 'ok', {}, 'eof with no ${^LAST_FH}');
 print "ok" if eof;