p5pRT
commented
15 years ago From @ikegami
Created by @ikegami
When using :encoding\, read() returns undef at eof rather than zero.
----- BEGIN code ----- #!/usr/bin/perl
use strict; use warnings;
sub test { my ($fh) = @_; my $buf = ''; for (1..3) { my $rv = read($fh\, $buf\, 1\, length($buf)); if (defined($rv)) { print("read = $rv\n"); } else { print("read = undef\, \$!=$!\n"); } } }
{ open(my $fh\, '\<'\, \'ab') or die; test($fh); } { open(my $fh\, '\<:encoding(iso-8859-1)'\, \'ab') or die; test($fh); } ----- END code -----
----- BEGIN output ----- read = 1 read = 1 read = 0
read = 1 read = 1 read = undef\, $!= ----- END output -----
(newline added for readability)
I haven't managed to track down the cause.
Migrated from rt.perl.org#69332 (status was 'open')
Searchable as RT69332$