Deal with TAP::Harness 3.16's request for @inc.

rakudo · Mar 1, 2009 · cd8ea0c · cd8ea0c
1 parent 65e835d
commit cd8ea0c
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/perl6.pir b/perl6.pir
@@ -153,8 +153,9 @@ to the Perl 6 compiler.
 .sub 'main' :main
     .param pmc args_str
 
-    $S0 = args_str[1]
-    if $S0 != '-le' goto not_harness
+    $S0 = args_str[2]
+    $I0 = index $S0, '@INC'
+    if $I0 < 0 goto not_harness
     exit 0
   not_harness: