use Darwin::InitObjC

Author: skaji

META.json

@@ -41,6 +41,7 @@
             "CPAN::Meta::Requirements" : "2.130",
             "CPAN::Meta::YAML" : "0",
             "Command::Runner" : "0.100",
+            "Darwin::InitObjC" : "0",
             "ExtUtils::Install" : "2.20",
             "ExtUtils::InstallPaths" : "0.002",
             "File::Copy::Recursive" : "0",
@@ -179,8 +180,8 @@
       "Will Sheppard <[email protected]>",
       "yoshikazusawa <[email protected]>"
    ],
-   "x_generated_by_perl" : "v5.40.0",
-   "x_serialization_backend" : "Cpanel::JSON::XS version 4.38",
+   "x_generated_by_perl" : "v5.40.1",
+   "x_serialization_backend" : "Cpanel::JSON::XS version 4.39",
    "x_spdx_expression" : "Artistic-1.0-Perl OR GPL-1.0-or-later",
    "x_static_install" : 1
 }

author/copyrights-and-licenses.json

@@ -59,6 +59,12 @@
       "name" : "Command-Runner",
       "url" : "https://metacpan.org/dist/Command-Runner"
    },
+   {
+      "copyright" : "Shoichi Kaji",
+      "license" : "the same as Perl 5",
+      "name" : "Darwin-InitObjC",
+      "url" : "https://metacpan.org/dist/Darwin-InitObjC"
+   },
    {
       "copyright" : "Yuval Kogman",
       "license" : "the same as Perl 5",

dist.pl

@@ -21,6 +21,7 @@
         'CPAN::Meta::Requirements' => '2.130',
         'CPAN::Meta::YAML' => '0',
         'Command::Runner' => '0.100',
+        'Darwin::InitObjC' => '0',
         'ExtUtils::Install' => '2.20',
         'ExtUtils::InstallPaths' => '0.002',
         'File::Copy::Recursive' => '0',

lib/App/cpm/CLI.pm

@@ -20,6 +20,7 @@ use CPAN::Meta;
 use Command::Runner;
 use Config;
 use Cwd ();
+use Darwin::InitObjC;
 use File::Copy ();
 use File::Path ();
 use File::Spec;
@@ -365,18 +366,7 @@ sub cmd_install {
 sub install {
     my ($self, $master, $worker, $num) = @_;
 
-    if ($num > 1
-        && $^O eq "darwin"
-        && ($^X eq "/usr/bin/perl" || $^X eq "perl")
-        && !exists $ENV{OBJC_DISABLE_INITIALIZE_FORK_SAFETY}
-        && !$self->{_darwin_fixed}
-    ) {
-        my $lib = "/System/Library/Frameworks/Foundation.framework/Foundation";
-        $master->{logger}->log("dlopen $lib to initialize Objective-C APIs before fork(2)");
-        require DynaLoader;
-        DynaLoader::dl_load_file $lib;
-        $self->{_darwin_fixed} = 1;
-    }
+    Darwin::InitObjC::maybe_init();
 
     my @task = $master->get_task;
     Parallel::Pipes::App->run(