Insert a semicolon when we are in moreinput but get nothing.

rakudo · Mar 31, 2015 · 459a0cc · 459a0cc
1 parent c5f2d09
commit 459a0cc
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/Perl6/Compiler.nqp b/src/Perl6/Compiler.nqp
@@ -50,11 +50,13 @@ class Perl6::Compiler is HLL::Compiler {
     method interactive(*%adverbs) {
         my $*moreinput := sub ($cursor) {
             my str $more := nqp::readlineintfh(nqp::getstdin, '* ');
-            if nqp::isnull_s($more) {
-                $more := '';
+            if nqp::isnull_s($more) || $more eq '' {
+                $more := ';';
             }
+
             $cursor."!APPEND_TO_ORIG"($more);
         }
+
         my $super := nqp::findmethod(HLL::Compiler, 'interactive');
         $super(self, |%adverbs);
     }