Fix for doc bug #8602 : clarify eof() example comments

p4raw-id: //depot/perl@19465

diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod
index b7c1aaf..44a6f28 100644 (file)
--- a/pod/perlfunc.pod
+++ b/pod/perlfunc.pod
@@ -1329,12 +1329,11 @@ last file.  Examples:
 
     # insert dashes just before last line of last file
     while (<>) {
-       if (eof()) {            # check for end of current file
+       if (eof()) {            # check for end of last file
            print "--------------\n";
-           close(ARGV);        # close or last; is needed if we
-                               # are reading from the terminal
        }
        print;
+       last if eof();          # needed if we're reading from a terminal
     }
 
 Practical hint: you almost never need to use C<eof> in Perl, because the