This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/op/inc.t, t/op/hexfp.t, t/op/sprintf2.t: Add missing d_ prefixes for Config variabl...
authorTAKAI Kousuke <62541129+t-a-k@users.noreply.github.com>
Thu, 5 Nov 2020 13:06:16 +0000 (22:06 +0900)
committerTony Cook <tony@develop-help.com>
Mon, 9 Nov 2020 23:59:42 +0000 (23:59 +0000)
t/op/hexfp.t
t/op/inc.t
t/op/sprintf2.t

index b0c85cf..5fb80d3 100644 (file)
@@ -246,7 +246,7 @@ SKIP: {
     skip("non-80-bit-long-double", 4)
         unless ($Config{uselongdouble} &&
                ($Config{nvsize} == 16 || $Config{nvsize} == 12) &&
-               ($Config{long_double_style_ieee_extended}));
+               ($Config{d_long_double_style_ieee_extended}));
     is(0x1p-1074,  4.94065645841246544e-324);
     is(0x1p-1075,  2.47032822920623272e-324, '[perl #128919]');
     is(0x1p-1076,  1.23516411460311636e-324);
index 0bb8b85..3d5cc02 100644 (file)
@@ -188,10 +188,10 @@ cmp_ok($a, '==', 2147483647, "postdecrement properly downgrades from double");
 
 SKIP: {
     if ($Config{uselongdouble} &&
-        ($Config{long_double_style_ieee_doubledouble})) {
+        ($Config{d_long_double_style_ieee_doubledouble})) {
         skip "the double-double format is weird", 1;
     }
-    unless ($Config{double_style_ieee}) {
+    unless ($Config{d_double_style_ieee}) {
         skip "the doublekind $Config{doublekind} is not IEEE", 1;
     }
 
index bbc12cc..38a550c 100644 (file)
@@ -701,7 +701,7 @@ SKIP: {
     skip("uselongdouble=" . ($Config{uselongdouble} ? 'define' : 'undef')
          . " longdblkind=$Config{longdblkind} os=$^O", 6)
         unless ($Config{uselongdouble} &&
-                ($Config{long_double_style_ieee_doubledouble})
+                ($Config{d_long_double_style_ieee_doubledouble})
                 # Gating on 'linux' (ppc) here is due to the differing
                 # double-double implementations: other (also big-endian)
                 # double-double platforms (e.g. AIX on ppc or IRIX on mips)
@@ -892,7 +892,7 @@ SKIP: {
     skip("non-80-bit-long-double", 17)
         unless ($Config{uselongdouble} &&
                ($Config{nvsize} == 16 || $Config{nvsize} == 12) &&
-               ($Config{long_double_style_ieee_extended}));
+               ($Config{d_long_double_style_ieee_extended}));
 
     {
         # The last normal for this format.