simply call Socket::inet_aton before fork(2) (#248)

skaji · Apr 28, 2024 · 923bf2b · 923bf2b
1 parent 13699b3
commit 923bf2b
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/lib/App/cpm/CLI.pm b/lib/App/cpm/CLI.pm
@@ -370,10 +370,8 @@ sub install {
         && !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;
+        require Socket;
+        Socket::inet_aton("call-inet_aton-before_fork");
         $self->{_darwin_fixed} = 1;
     }