Permalink
Browse files

More error handling I guess?

  • Loading branch information...
Skarsnik committed Nov 2, 2018
1 parent 3725e3c commit 598e3cd95015e14219d67eaf50d383c7f49e9a1f
Showing with 3 additions and 2 deletions.
  1. +1 −1 META6.json
  2. +2 −1 bin/gptrixie
@@ -2,7 +2,7 @@
"perl" : "6.*",
"name" : "App::GPTrixie",
"license" : "Artistic-2.0",
"version" : "0.28",
"version" : "0.29",
"description" : "Generate NativeCall code from C headers file",
"authors" : ["Sylvain 'Skarsnik' Colinet <scolinet@gmail.com>"],
"depends" : [ "XML" ],
@@ -214,8 +214,9 @@ sub do-magic($header, @other) {
gpt-note "Calling castxml : " ~ @arg.join(' ');
my $prun = run('castxml', @arg, :out, :err);
die "Error with castxml : " ~ $prun.err.slurp if $prun.exitcode != 0;
$prun.err.slurp;
my $serr = $prun.err.slurp;
$xml-output = $prun.out.slurp;
die "Error: no XML produced by castxml " ~ $serr if $xml-output eq "";
} else {
gpt-note "Calling GCCXML : $GCC_XML $header -fxml=plop.xml ", |@other;
$xml-output = run($GCC_XML, $header, "-fxml=-", @other, :out).out.slurp;

0 comments on commit 598e3cd

Please sign in to comment.