This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
sqrt() disappeared in OSX, assuming it became pow().
authorJarkko Hietaniemi <jhi@iki.fi>
Sun, 31 Aug 2014 14:35:35 +0000 (10:35 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 31 Aug 2014 16:14:24 +0000 (12:14 -0400)
Use exp() instead, less likely to disappear.  Yes, handwaving.

t/porting/libperl.t

index 0fe212b..366bfd9 100644 (file)
@@ -418,8 +418,8 @@ ok(keys %{$symbols{undef}}, "has undefined symbols");
 
 # There are certain symbols we expect to see.
 
-# chmod, socket, getenv, sigaction, sqrt, time are system/library
-# calls that should each see at least one use. sqrt can be sqrtl
+# chmod, socket, getenv, sigaction, exp, time are system/library
+# calls that should each see at least one use. exp can be expl
 # if so configured.
 my %expected = (
     chmod  => undef, # There is no Configure symbol for chmod.
@@ -430,9 +430,9 @@ my %expected = (
     );
 
 if ($Config{uselongdouble} && $Config{d_longdbl}) {
-    $expected{sqrtl} = 'd_sqrtl';
+    $expected{expl} = undef; # There is no Configure symbol for expl.
 } else {
-    $expected{sqrt} = undef; # There is no Configure symbol for sqrt.
+    $expected{exp} = undef; # There is no Configure symbol for exp.
 }
 
 # DynaLoader will use dlopen, unless we are building static,