X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perlsh;h=63662d6c6a155b1542cd13541f4fb9a457a5da63;hb=a9ef352ac26829339bf17aa20568b3bde2fb1dd0;hp=4f9b5ddd1218d9ccab258461236166d86810b750;hpb=378cc40b38293ffc7298c6a7ed3cd740ad79be52;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perlsh b/perlsh
index 4f9b5dd..63662d6 100644
--- a/perlsh
+++ b/perlsh
@@ -6,9 +6,9 @@
 # Note that it must be a complete perl statement--don't type double
 #  carriage return in the middle of a loop.
 
-$/ = '';	# set paragraph mode
+$/ = "\n\n";	# set paragraph mode
 $SHlinesep = "\n";
-while ($SHcmd = <>) {
+while (defined($SHcmd = <>)) {
     $/ = $SHlinesep;
     eval $SHcmd; print $@ || "\n";
     $SHlinesep = $/; $/ = '';