fish: loop on eof

* When redirecting input from a file I noticed that fish reads past eof in the playguess() prompt loop
* This change is similar to commit 57c92da for bin/moo

Author: mknos

bin/fish

@@ -67,7 +67,9 @@ sub playguess {
 
 	do {
 		print "\nYou ask me for: ";
-		$guess=<STDIN>;  chomp($guess);
+		$guess = <STDIN>;
+		exit unless defined $guess;
+		chomp $guess;
 	} while(! defined ($stat=askfor(\@PLAYERS_HAND, \@COMPUTERS_HAND, $guess)));
 
 	# Professional mode....is watching you.