This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add in change for Apple/Darwin Bug: 2785519 to fix memory leaks.
authorArtur Bergman <sky@nanisky.com>
Tue, 5 Feb 2002 14:50:36 +0000 (14:50 +0000)
committerArtur Bergman <sky@nanisky.com>
Tue, 5 Feb 2002 14:50:36 +0000 (14:50 +0000)
p4raw-id: //depot/perl@14562

ext/DynaLoader/dl_dyld.xs
ext/POSIX/t/posix.t

index 752ac36..45ae10f 100644 (file)
@@ -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;
index 3e00af5..d73dae0 100644 (file)
@@ -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);