From: Artur Bergman <sky@nanisky.com>
Date: Tue, 5 Feb 2002 14:50:36 +0000 (+0000)
Subject: Add in change for Apple/Darwin Bug: 2785519 to fix memory leaks.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bb2834fe59c17df7e7a30c6fffa67d5ab0746603;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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);