This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
POSIX: add lround() to the :math_h_c99 export tag
authorAaron Crane <arc@cpan.org>
Fri, 13 May 2016 10:29:01 +0000 (11:29 +0100)
committerAaron Crane <arc@cpan.org>
Mon, 16 May 2016 12:47:10 +0000 (13:47 +0100)
Closes RT#127821.

ext/POSIX/lib/POSIX.pm
ext/POSIX/t/export.t
ext/POSIX/t/math.t

index fcaf298..9418ba9 100644 (file)
@@ -428,7 +428,7 @@ my %other_export_tags = ( # cf. exports policy below
         Inf NaN acosh asinh atanh cbrt copysign erf erfc exp2 expm1 fdim fma
         fmax fmin fpclassify hypot ilogb isfinite isgreater isgreaterequal
         isinf isless islessequal islessgreater isnan isnormal isunordered j0 j1
-        jn lgamma log1p log2 logb lrint nan nearbyint nextafter nexttoward
+        jn lgamma log1p log2 logb lrint lround nan nearbyint nextafter nexttoward
         remainder remquo rint round scalbn signbit tgamma trunc y0 y1 yn
     )],
 
@@ -465,10 +465,7 @@ my %other_export_tags = ( # cf. exports policy below
 
   # you do not want to add symbols to the following list. add a new tag instead
   our @EXPORT_OK = (qw(close lchown nice open pipe read sleep times write
-                      printf sprintf lround),
-                    # lround() should really be in the :math_h_c99 tag, but
-                    # we're too far into the 5.24 code freeze for that to be
-                    # done now. This can be revisited in the 5.25.x cycle.
+                      printf sprintf),
                    grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok);
 
   our %EXPORT_TAGS = ( %default_export_tags, %other_export_tags );
index 5c37f83..d76de57 100644 (file)
@@ -141,6 +141,9 @@ my %expect = (
             waitpid write
         ),
         # this stuff was added in 5.21
+        # (though an oversight meant that lround wasn't listed here
+        # initially; it was added to @EXPORT_OK in 5.23, and to the
+        # :math_h_c99 tag in 5.25)
         qw(
             FE_DOWNWARD FE_TONEAREST FE_TOWARDZERO FE_UPWARD
             fegetround fesetround
@@ -148,7 +151,7 @@ my %expect = (
             acosh asinh atanh cbrt copysign erf erfc exp2 expm1 fdim
             fma fmax fmin fpclassify hypot ilogb isfinite isgreater
             isgreaterequal isinf isless islessequal islessgreater isnan
-            isnormal isunordered j0 j1 jn lgamma log1p log2 logb lrint nan
+            isnormal isunordered j0 j1 jn lgamma log1p log2 logb lrint lround nan
             nearbyint nextafter nexttoward remainder remquo rint round scalbn
             signbit tgamma trunc y0 y1 yn strtold
         ),
@@ -166,10 +169,6 @@ my %expect = (
             POLL_IN POLL_OUT POLL_MSG POLL_ERR POLL_PRI POLL_HUP
             SI_USER SI_QUEUE SI_TIMER SI_ASYNCIO SI_MESGQ
         ),
-        # this was implemented in 5.21, but not exported; it was added to
-        # @EXPORT_OK late in 5.23, and will be added to :math_h_c99 tag early
-        # in 5.25
-        qw( lround ),
     ],
 );
 
index 54067d1..ea0c0e3 100644 (file)
@@ -4,7 +4,6 @@ use strict;
 
 use POSIX ':math_h_c99';
 use POSIX ':nan_payload';
-use POSIX 'lround';
 use Test::More;
 
 use Config;