This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Expect sqrtl instead of sqrt if applicable.
authorJarkko Hietaniemi <jhi@iki.fi>
Sun, 20 Jul 2014 11:30:17 +0000 (07:30 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 20 Jul 2014 12:22:10 +0000 (08:22 -0400)
t/porting/libperl.t

index 18c1801..a138047 100644 (file)
@@ -417,9 +417,11 @@ ok(keys %{$symbols{undef}}, "has undefined symbols");
 # memchr, memcmp, memcpy should be used all over the place.
 #
 # chmod, socket, getenv, sigaction, sqrt, time are system/library
-# calls that should each see at least one use.
+# calls that should each see at least one use. sqrt can be sqrtl
+# if so configured.
 my @good = qw(memchr memcmp memcpy
-              chmod socket getenv sigaction sqrt time);
+              chmod socket getenv sigaction time);
+push @good, $Config{uselongdouble} && $Config{d_sqrtl} ? 'sqrtl' : 'sqrt';
 if ($Config{usedl}) {
     push @good, 'dlopen';
 }