diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2014-07-20 07:33:12 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2014-07-20 08:22:10 -0400 |
| commit | 1671bb9e8e198a16f59db6e7674554557b9520f9 (patch) | |
| tree | 8dfaae185aa005f4abd72c70050032f85ee92c9f | |
| parent | 9be194d55da5f4e3cd5ff98fc29def20d122378d (diff) | |
| download | perl-1671bb9e8e198a16f59db6e7674554557b9520f9.tar.gz | |
Comments for dlopen.
| -rw-r--r-- | t/porting/libperl.t | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/t/porting/libperl.t b/t/porting/libperl.t index a138047a57..de8e5b535c 100644 --- a/t/porting/libperl.t +++ b/t/porting/libperl.t @@ -422,9 +422,13 @@ ok(keys %{$symbols{undef}}, "has undefined symbols"); my @good = qw(memchr memcmp memcpy chmod socket getenv sigaction time); push @good, $Config{uselongdouble} && $Config{d_sqrtl} ? 'sqrtl' : 'sqrt'; + +# DynaLoader will use dlopen, unless we are building static, +# and in the platforms we are supporting in this test. if ($Config{usedl}) { push @good, 'dlopen'; } + for my $good (@good) { my @o = exists $symbols{undef}{$good} ? sort keys %{ $symbols{undef}{$good} } : (); |