Fix readline example in perlfunc

Only check $! if an error was encountered (that is, not at end of file)

diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod
index 826df27..4593352 100644 (file)
--- 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
         }
         # ...
     }