Silently exit if passed '-le' argument from Test::Harness.

rakudo · Feb 16, 2009 · 924f2ba · 924f2ba
1 parent cf98887
commit 924f2ba
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/perl6.pir b/perl6.pir
@@ -155,6 +155,11 @@ to the Perl 6 compiler.
 .sub 'main' :main
     .param pmc args_str
 
+    $S0 = args_str[1]
+    if $S0 != '-le' goto not_harness
+    exit 0
+  not_harness:
+
     $P0 = compreg 'Perl6'
     $P1 = $P0.'command_line'(args_str, 'encoding'=>'utf8', 'transcode'=>'ascii')