while (my ($fd, $file) = $it->()) {
push @args, "--fd=$fd $file";
}
- execlist $basename, @args, "./$basename"
+ execlist $basename, @args, '--', "./$basename", @{$args{args}}
}
}
try {
execlist prog => '--fd=1 >>errors', '--fd=2 >>errors', 'gruntmaster-compile', $format, $name;
} catch {
- die "Compile error\n"
+ my $exmsg = $_->[1];
+ die "Compile error ($exmsg)\n"
} finally {
$Gruntmaster::Daemon::errors .= read_file 'errors';
- $Gruntmaster::Daemon::errors .= "\n";
+ $Gruntmaster::Daemon::errors .= "\n" if -s 'errors';
unlink 'errors';
};
}