In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/86cb0d3084b80528a1362f4a6b091000965f9beb?hp=6c1b5ced18901286f16f6d5f6914ba4b5e3db601>
- Log ----------------------------------------------------------------- commit 86cb0d3084b80528a1362f4a6b091000965f9beb Author: Jesse Vincent <[email protected]> Date: Sat Oct 10 16:15:35 2009 -0400 Added a TODO test for RT#69332 - PerlIO returns undef instead of 0 on EOL ----------------------------------------------------------------------- Summary of changes: t/io/perlio.t | 26 +++++++++++++++++++++++++- 1 files changed, 25 insertions(+), 1 deletions(-) diff --git a/t/io/perlio.t b/t/io/perlio.t index c5f236d..cdc4c72 100644 --- a/t/io/perlio.t +++ b/t/io/perlio.t @@ -9,7 +9,7 @@ BEGIN { require './test.pl'; } -plan tests => 39; +plan tests => 40; use_ok('PerlIO'); @@ -145,6 +145,30 @@ SKIP: { } +{ local $TODO = 'fails well back into 5.8.x'; + + +sub read_fh_and_return_final_rv { + my ($fh) = @_; + my $buf = ''; + my $rv; + for (1..3) { + $rv = read($fh, $buf, 1, length($buf)); + next if $rv; + } + return $rv +} + +open(my $no_perlio, '<', \'ab') or die; +open(my $perlio, '<:crlf', \'ab') or die; + +is(read_fh_and_return_final_rv($perlio), read_fh_and_return_final_rv($no_perlio), "RT#69332 - perlio should return the same value as nonperlio after EOF"); + +close ($perlio); +close ($no_perlio); +} + + END { 1 while unlink $txt; 1 while unlink $bin; -- Perl5 Master Repository
