In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/d947e7a211e365be90c523f5ad3b72b031e840c2?hp=c6757210fa44035178e0a2501e1022995a42b70d>
- Log ----------------------------------------------------------------- commit d947e7a211e365be90c523f5ad3b72b031e840c2 Author: Rafael Garcia-Suarez <[email protected]> Date: Mon Jun 15 16:16:17 2009 +0200 Fix readline example in perlfunc Only check $! if an error was encountered (that is, not at end of file) ----------------------------------------------------------------------- Summary of changes: pod/perlfunc.pod | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod index 826df27..4593352 100644 --- a/pod/perlfunc.pod +++ b/pod/perlfunc.pod @@ -4349,8 +4349,8 @@ steps to ensure that C<readline> was successful. for (;;) { undef $!; unless (defined( $line = <> )) { + last if eof; die $! if $!; - last; # reached EOF } # ... } -- Perl5 Master Repository
