diff options
| author | Peter Powell <petpow@saberuk.com> | 2013-07-07 10:47:38 +0100 |
|---|---|---|
| committer | Peter Powell <petpow@saberuk.com> | 2013-12-16 04:14:42 +0000 |
| commit | b28bf791c295e616cc3beea9ac3e43632378a5b6 (patch) | |
| tree | 15b077c7be82734ee4cf1b289653b70753ef262a /make | |
| parent | f12c97e3ff4b5f638c51bff4fb94ac433231a91d (diff) | |
Add a tool for running test builds.
Diffstat (limited to 'make')
| -rw-r--r-- | make/utilities.pm | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/make/utilities.pm b/make/utilities.pm index 8b6c1b225..48713fe9e 100644 --- a/make/utilities.pm +++ b/make/utilities.pm @@ -36,7 +36,7 @@ use File::Spec::Functions qw(rel2abs); use Getopt::Long; use POSIX; -our @EXPORT = qw(module_installed prompt_bool prompt_dir prompt_string make_rpath pkgconfig_get_include_dirs pkgconfig_get_lib_dirs pkgconfig_check_version translate_functions promptstring); +our @EXPORT = qw(module_installed prompt_bool prompt_dir prompt_string get_cpu_count make_rpath pkgconfig_get_include_dirs pkgconfig_get_lib_dirs pkgconfig_check_version translate_functions promptstring); # Parse the output of a *_config program, # such as pcre_config, take out the -L @@ -88,6 +88,21 @@ sub prompt_string($$$) { return $answer ? $answer : $default; } +sub get_cpu_count { + my $count = 1; + if ($^O =~ /bsd/) { + $count = `sysctl -n hw.ncpu`; + } elsif ($^O eq 'darwin') { + $count = `sysctl -n hw.activecpu`; + } elsif ($^O eq 'linux') { + $count = `getconf _NPROCESSORS_ONLN`; + } elsif ($^O eq 'solaris') { + $count = `psrinfo -p`; + } + chomp($count); + return $count; +} + sub promptstring($$$$$) { my ($prompt, $configitem, $default, $package, $commandlineswitch) = @_; |