40 lines
530 B
Perl
Executable File
40 lines
530 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use File::Basename;
|
|
|
|
my ($myself, $path) = fileparse($0);
|
|
chdir($path);
|
|
|
|
require 'helpers.pm';
|
|
|
|
chdir('..');
|
|
chdir('..');
|
|
|
|
my ($cmd, $output);
|
|
|
|
$cmd = Build::PathFormat('tools/builder/builder.exe') . ' build.cfg'; # 2>&1';
|
|
|
|
if ($^O eq "linux")
|
|
{
|
|
$cmd = 'mono ' . $cmd;
|
|
}
|
|
|
|
system($cmd);
|
|
|
|
if ($? == -1)
|
|
{
|
|
die "Build failed: $!\n";
|
|
}
|
|
elsif ($^O eq "linux" and $? & 127)
|
|
{
|
|
die "Build died :(\n";
|
|
}
|
|
elsif ($? >> 8 != 0)
|
|
{
|
|
die "Build failed with exit code: " . ($? >> 8) . "\n";
|
|
}
|
|
else
|
|
{
|
|
exit(0);
|
|
}
|