Correctly check for valid input from the secondary prompt.

rakudo · Mar 30, 2015 · f26fcba · f26fcba
1 parent 7110fdb
commit f26fcba
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/Perl6/Compiler.nqp b/src/Perl6/Compiler.nqp
@@ -49,7 +49,10 @@ class Perl6::Compiler is HLL::Compiler {
 
     method interactive(*%adverbs) {
         my $*moreinput := sub ($cursor) {
-            my $more := nqp::readlineintfh(nqp::getstdin, '* ');
+            my str $more := nqp::readlineintfh(nqp::getstdin, '* ');
+            if nqp::isnull_s($more) {
+                $more := '';
+            }
             $cursor."!APPEND_TO_ORIG"($more);
         }
         my $super := nqp::findmethod(HLL::Compiler, 'interactive');