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

p4raw-id: //depot/perl@19465

1 files changed, 2 insertions, 3 deletions

diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod
index b7c1aafba2..44a6f286bf 100644
--- 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