File tree Expand file tree Collapse file tree 2 files changed +11
-2
lines changed Expand file tree Collapse file tree 2 files changed +11
-2
lines changed Original file line number Diff line number Diff line change @@ -23,7 +23,7 @@ use File::Path;
23
23
use Carp;
24
24
25
25
use base qw( Exporter) ;
26
- our @EXPORT = qw( IS_CYGWIN IS_MSYS IS_WINDOWS IS_WIN32PERL IS_AIX IS_MAC
26
+ our @EXPORT = qw( IS_CYGWIN IS_MSYS IS_WINDOWS IS_WIN32PERL IS_AIX IS_MAC IS_FREEBSD
27
27
native_path posix_path mixed_path
28
28
check_socket_path_length process_alive open_for_append) ;
29
29
@@ -79,6 +79,15 @@ BEGIN {
79
79
}
80
80
}
81
81
82
+ BEGIN {
83
+ if ($^O eq " freebsd" ) {
84
+ eval ' sub IS_FREEBSD { 1 }' ;
85
+ }
86
+ else {
87
+ eval ' sub IS_FREEBSD { 0 }' ;
88
+ }
89
+ }
90
+
82
91
#
83
92
# native_path
84
93
# Convert from path format used by perl to the underlying
Original file line number Diff line number Diff line change @@ -427,7 +427,7 @@ sub main {
427
427
{
428
428
$opt_parallel = $ENV {NUMBER_OF_PROCESSORS } || 1;
429
429
}
430
- elsif (IS_MAC)
430
+ elsif (IS_MAC || IS_FREEBSD )
431
431
{
432
432
$opt_parallel = ` sysctl -n hw.ncpu` ;
433
433
}
You can’t perform that action at this time.
0 commit comments