REPL6: Implement RAKUDO_DISABLE_MULTILINE

rakudo · Mar 4, 2016 · e2187cd · e2187cd
1 parent dcb9738
commit e2187cd
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/core/REPL.pm b/src/core/REPL.pm
@@ -131,6 +131,7 @@ class REPL is export { # XXX no need for is export later
     also does Completions;
 
     has Mu $.compiler;
+    has Bool $!multi-line-enabled;
 
     # XXX print fallback messages
     method !load-line-editor() {
@@ -154,6 +155,7 @@ class REPL is export { # XXX no need for is export later
     }
 
     method interactive(Mu \compiler, Mu \adverbs) {
+        $!multi-line-enabled = !%*ENV<RAKUDO_DISABLE_MULTILINE>;
         $!compiler = compiler;
         self!load-line-editor();
     }
@@ -162,15 +164,15 @@ class REPL is export { # XXX no need for is export later
         try {
             CATCH {
                 when X::Syntax::Missing {
-                    if .pos == code.chars {
+                    if $!multi-line-enabled && .pos == code.chars {
                         adverbs<more_input> = 1;
                         return;
                     }
                     .throw;
                 }
 
                 when X::Comp::FailGoal {
-                    if .pos == code.chars {
+                    if $!multi-line-enabled && .pos == code.chars {
                         adverbs<more_input> = 1;
                         return;
                     }