Expect sqrtl instead of sqrt if applicable.

diff --git a/t/porting/libperl.t b/t/porting/libperl.t
index 18c1801..a138047 100644 (file)
--- a/t/porting/libperl.t
+++ b/t/porting/libperl.t
@@ -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';
 }