This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix test failures in GCC "long doubles" builds on Windows
authorSteve Hay <steve.m.hay@googlemail.com>
Wed, 22 Nov 2017 08:22:55 +0000 (08:22 +0000)
committerSteve Hay <steve.m.hay@googlemail.com>
Wed, 22 Nov 2017 08:22:55 +0000 (08:22 +0000)
Patch by sisyphus1@optusnet.com.au on perl #132479.

t/op/pack.t

index 919e4c5..664aaaf 100644 (file)
@@ -1414,7 +1414,7 @@ is(scalar unpack('A /A /A Z20', '3004bcde'), 'bcde');
   my @b = unpack "$t X[$t] $t", $p;    # Extract, step back, extract again
   is(scalar @b, 2 * scalar @a);
   $b = "@b";
-  $b =~ s/(?:17000+|16999+)\d+(e-45) /17$1 /gi; # stringification is gamble
+  $b =~ s/(?:17000+|16999+)\d+(e-0?45) /17$1 /gi; # stringification is gamble
   is($b, "@a @a");
 
   use warnings qw(NONFATAL all);;
@@ -1427,7 +1427,7 @@ is(scalar unpack('A /A /A Z20', '3004bcde'), 'bcde');
   is($warning, undef);
   is(scalar @b, scalar @a);
   $b = "@b";
-  $b =~ s/(?:17000+|16999+)\d+(e-45) /17$1 /gi; # stringification is gamble
+  $b =~ s/(?:17000+|16999+)\d+(e-0?45) /17$1 /gi; # stringification is gamble
   is($b, "@a");
 }