X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perlsh;h=63662d6c6a155b1542cd13541f4fb9a457a5da63;hb=8861ecc69a87dc6907b3e9c79689edb5df16413e;hp=2b2cccd0641e8f56ceb5b325bbf05f3c825f09a3;hpb=faf8582f0c418b57fd71e105da84edbb3177fa0c;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perlsh b/perlsh
index 2b2cccd..63662d6 100644
--- a/perlsh
+++ b/perlsh
@@ -8,7 +8,7 @@
 
 $/ = "\n\n";	# set paragraph mode
 $SHlinesep = "\n";
-while ($SHcmd = <>) {
+while (defined($SHcmd = <>)) {
     $/ = $SHlinesep;
     eval $SHcmd; print $@ || "\n";
     $SHlinesep = $/; $/ = '';