Half-fix Nativecallable

Still won't chooch properly. See issue #281

Author: AlexDaniel

bin/Nativecallable.p6

@@ -4,14 +4,14 @@ use Misc;
 
 unit class Nativecallable does Whateverable;
 
-my $GPTrixie-BIN = ‘gptrixie’;
-
 method help($msg) {
     “Like this {$msg.server.current-nick}: <some C definition>”;
 }
 
 sub run-gptrixie($header-file) {
-    my %output = get-output $GPTrixie-BIN, ‘--all’, ‘--silent’, $header-file;
+    my %ENV = %*ENV.clone;
+    %ENV<PATH> = join ‘:’, ‘/home/bisectable/.rakudobrew/bin’, %ENV<PATH>; # TODO
+    my %output = get-output :%ENV, ‘gptrixie’, ‘--all’, ‘--silent’, $header-file;
     if %output<output>.lines > 20 {
         return ‘’ but FileStore(%(‘GPTrixiefied.pm6’ => "#Generated by App::GPTrixie\n" ~ %output<output>))
     }