Fix Config variable names in in t/op tests

perl-5.33.3-t-op-inc.t-t-op-hexfp.t-t-op-sprintf2.t-Add-missing-.patch

@@ -0,0 +1,71 @@
+From b52b6c4029b51818442d64c6104d26e12e140f09 Mon Sep 17 00:00:00 2001
+From: TAKAI Kousuke <62541129+t-a-k@users.noreply.github.com>
+Date: Thu, 5 Nov 2020 22:06:16 +0900
+Subject: [PATCH] t/op/inc.t, t/op/hexfp.t, t/op/sprintf2.t: Add missing d_
+ prefixes for Config variable names.
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ t/op/hexfp.t    | 2 +-
+ t/op/inc.t      | 4 ++--
+ t/op/sprintf2.t | 4 ++--
+ 3 files changed, 5 insertions(+), 5 deletions(-)
+
+diff --git a/t/op/hexfp.t b/t/op/hexfp.t
+index b0c85cfdc6..5fb80d3d74 100644
+--- a/t/op/hexfp.t
++++ b/t/op/hexfp.t
+@@ -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);
+diff --git a/t/op/inc.t b/t/op/inc.t
+index 0bb8b85b13..3d5cc024d3 100644
+--- a/t/op/inc.t
++++ b/t/op/inc.t
+@@ -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;
+     }
+ 
+diff --git a/t/op/sprintf2.t b/t/op/sprintf2.t
+index bbc12ccd0a..38a550c281 100644
+--- a/t/op/sprintf2.t
++++ b/t/op/sprintf2.t
+@@ -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.
+-- 
+2.25.4
+

perl.spec

@@ -259,6 +259,9 @@ Patch40:        perl-5.33.2-sv.c-Added-missing-braces-in-Perl_sv_inc_nomg.patch
 # in upstream after 5.33.3
 Patch41:        perl-5.33.3-Perl_custom_op_get_field-remove-undef-behaviour.patch
 
+# Fix Config variable names in in t/op tests, in upstream after 5.33.3
+Patch42:        perl-5.33.3-t-op-inc.t-t-op-hexfp.t-t-op-sprintf2.t-Add-missing-.patch
+
 # Link XS modules to libperl.so with EU::CBuilder on Linux, bug #960048
 Patch200:       perl-5.16.3-Link-XS-modules-to-libperl.so-with-EU-CBuilder-on-Li.patch
 
@@ -4302,6 +4305,7 @@ you're not running VMS, this module does nothing.
 %patch39 -p1
 %patch40 -p1
 %patch41 -p1
+%patch42 -p1
 %patch200 -p1
 %patch201 -p1
 
@@ -4350,6 +4354,7 @@ perl -x patchlevel.h \
     'Fedora Patch39: Fix an iterator signedness in handling a mro exception (GH#18155)' \
     'Fedora Patch40: Fix a code flow in Perl_sv_inc_nomg()' \
     'Fedora Patch41: Fix un undefined behavior in Perl_custom_op_get_field()' \
+    'Fedora Patch42: Fix Config variable names in in t/op tests' \
     'Fedora Patch200: Link XS modules to libperl.so with EU::CBuilder on Linux' \
     'Fedora Patch201: Link XS modules to libperl.so with EU::MM on Linux' \
     %{nil}
@@ -7070,6 +7075,7 @@ popd
 %changelog
 * Thu Nov 12 2020 Petr Pisar <ppisar@redhat.com> - 4:5.32.0-466
 - Fix un undefined behavior in Perl_custom_op_get_field()
+- Fix Config variable names in in t/op tests
 
 * Wed Oct 14 2020 Petr Pisar <ppisar@redhat.com> - 4:5.32.0-465
 - Fix sv_collxfrm macro to respect locale