From: Steve Peters <steve@fisharerojo.org>
Date: Wed, 13 Sep 2006 16:05:33 +0000 (+0000)
Subject: darwin also seems to be lacking a dl_unload_file() in its
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ce12ed1954bf0c4d162d21f2c053dcf26b258c10;p=p5sagit%2Fp5-mst-13.2.git

darwin also seems to be lacking a dl_unload_file() in its
DynaLoader, so some additional skips are needed.  If I only
had a NeXT to test with now...

p4raw-id: //depot/perl@28840
---

diff --git a/ext/DynaLoader/t/DynaLoader.t b/ext/DynaLoader/t/DynaLoader.t
index 6c4b7f7..c710e3a 100644
--- a/ext/DynaLoader/t/DynaLoader.t
+++ b/ext/DynaLoader/t/DynaLoader.t
@@ -37,7 +37,7 @@ can_ok( 'DynaLoader' => 'dl_load_file'            ); # defined in XS section
 can_ok( 'DynaLoader' => 'dl_load_flags'           ); # defined in Perl section
 can_ok( 'DynaLoader' => 'dl_undef_symbols'        ); # defined in XS section
 SKIP: {
-    skip "unloading unsupported on VMS", 1 if $^O eq 'VMS';
+    skip "unloading unsupported on $^O", 1 if ($^O eq 'VMS' || $^O eq 'darwin');
     can_ok( 'DynaLoader' => 'dl_unload_file'          ); # defined in XS section
 }
 
@@ -116,7 +116,7 @@ is( scalar @DynaLoader::dl_modules, scalar keys %modules, "checking number of it
 my @loaded_modules = @DynaLoader::dl_modules;
 for my $libref (reverse @DynaLoader::dl_librefs) {
   SKIP: {
-    skip "unloading unsupported on VMS", 2 if $^O eq 'VMS';
+    skip "unloading unsupported on $^O", 2 if ($^O eq 'VMS' || $^O eq 'darwin');
     my $module = pop @loaded_modules;
     my $r = eval { DynaLoader::dl_unload_file($libref) };
     is( $@, '', "calling dl_unload_file() for $module" );