#!/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); }