Add in change for Apple/Darwin Bug: 2785519 to fix memory leaks.

p4raw-id: //depot/perl@14562

diff --git a/ext/DynaLoader/dl_dyld.xs b/ext/DynaLoader/dl_dyld.xs
index 752ac36..45ae10f 100644 (file)
--- a/ext/DynaLoader/dl_dyld.xs
+++ b/ext/DynaLoader/dl_dyld.xs
@@ -116,6 +116,7 @@ static char *dlopen(char *path, int mode /* mode is ignored */)
        // NSLinkModule will cause the run to abort on any link error's
        // not very friendly but the error recovery functionality is limited.
        handle = NSLinkModule(ofile, path, TRUE);
+       NSDestroyObjectFileImage(ofile);
     }
 
     return handle;

diff --git a/ext/POSIX/t/posix.t b/ext/POSIX/t/posix.t
index 3e00af5..d73dae0 100644 (file)
--- a/ext/POSIX/t/posix.t
+++ b/ext/POSIX/t/posix.t
@@ -62,6 +62,7 @@ SKIP: {
     SKIP: {
         skip("no kill() support on Mac OS", 4) if $Is_MacOS;
 
+       print "# warning, darwin seems to loose blocked signals (failing test 10)\n" if($^O eq 'darwin');
        my $mask   = new POSIX::SigSet &SIGINT;
        my $action = new POSIX::SigAction 'main::SigHUP', $mask, 0;
        sigaction(&SIGHUP, $action);