-e option to HLL::Compiler needs to pass an arg0.

Raku · Jul 25, 2011 · b5f2c5d · b5f2c5d
1 parent 9573361
commit b5f2c5d
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/HLL/Compiler.pm b/src/HLL/Compiler.pm
@@ -304,7 +304,9 @@ class HLL::Compiler {
         self.nqpevent(%adverbs<nqpevent>) if %adverbs<nqpevent>;
 
         my $result;
-        if %adverbs<e> { $result := self.eval(%adverbs<e>, |@a, |%adverbs) }
+        if %adverbs<e> { 
+            $result := self.eval(%adverbs<e>, '-e', |@a, |%adverbs) 
+        }
         elsif !@a { $result := self.interactive(|%adverbs) }
         elsif %adverbs<combine> { $result := self.evalfiles(@a, |%adverbs) }
         else { $result := self.evalfiles(@a[0], |@a, |%adverbs) }