mtr on FreeBSD detects core count for --parallel=auto

This commit is contained in:
Dave Gosselin 2024-05-15 09:50:11 -04:00 committed by Daniel Black
parent 32ee6670a5
commit 4911ec1a5b
2 changed files with 11 additions and 2 deletions

View file

@ -23,7 +23,7 @@ use File::Path;
use Carp;
use base qw(Exporter);
our @EXPORT= qw(IS_CYGWIN IS_MSYS IS_WINDOWS IS_WIN32PERL IS_AIX IS_MAC
our @EXPORT= qw(IS_CYGWIN IS_MSYS IS_WINDOWS IS_WIN32PERL IS_AIX IS_MAC IS_FREEBSD
native_path posix_path mixed_path
check_socket_path_length process_alive open_for_append);
@ -79,6 +79,15 @@ BEGIN {
}
}
BEGIN {
if ($^O eq "freebsd") {
eval 'sub IS_FREEBSD { 1 }';
}
else {
eval 'sub IS_FREEBSD { 0 }';
}
}
#
# native_path
# Convert from path format used by perl to the underlying

View file

@ -427,7 +427,7 @@ sub main {
{
$opt_parallel= $ENV{NUMBER_OF_PROCESSORS} || 1;
}
elsif (IS_MAC)
elsif (IS_MAC || IS_FREEBSD)
{
$opt_parallel= `sysctl -n hw.ncpu`;
}