This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Adjust 31e62fa1f35be3aceacc7fa62ce72d7131299a9a v5.21.2
authorAbigail <abigail@abigail.be>
Sun, 20 Jul 2014 11:33:42 +0000 (13:33 +0200)
committerAbigail <abigail@abigail.be>
Sun, 20 Jul 2014 11:33:42 +0000 (13:33 +0200)
It seems that 'sqrt' is not always called as a system call, in particular,
when compiling with -Dusemorebits

t/porting/libperl.t

index 18c1801..8f1dc05 100644 (file)
@@ -416,10 +416,10 @@ ok(keys %{$symbols{undef}}, "has undefined symbols");
 
 # memchr, memcmp, memcpy should be used all over the place.
 #
 
 # memchr, memcmp, memcpy should be used all over the place.
 #
-# chmod, socket, getenv, sigaction, sqrt, time are system/library
+# chmod, socket, getenv, sigaction, time are system/library
 # calls that should each see at least one use.
 my @good = qw(memchr memcmp memcpy
 # calls that should each see at least one use.
 my @good = qw(memchr memcmp memcpy
-              chmod socket getenv sigaction sqrt time);
+              chmod socket getenv sigaction time);
 if ($Config{usedl}) {
     push @good, 'dlopen';
 }
 if ($Config{usedl}) {
     push @good, 'dlopen';
 }