This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix a failing test in Math::BigInt with VC14 or higher
authorSteve Hay <steve.m.hay@googlemail.com>
Sun, 20 Oct 2019 09:30:08 +0000 (10:30 +0100)
committerSteve Hay <steve.m.hay@googlemail.com>
Sun, 20 Oct 2019 09:30:08 +0000 (10:30 +0100)
See CPAN RT #130736

Porting/Maintainers.pl
cpan/Math-BigInt/lib/Math/BigFloat.pm
cpan/Math-BigInt/lib/Math/BigInt.pm
cpan/Math-BigInt/lib/Math/BigInt/Calc.pm
cpan/Math-BigInt/lib/Math/BigInt/Lib.pm
cpan/Math-BigInt/t/calling.t
t/porting/customized.dat

index 0638252..ba77140 100755 (executable)
@@ -728,6 +728,14 @@ use File::Glob qw(:case);
                 t/01load.t
                 ),
         ],
+        # CPAN RT 130736
+        'CUSTOMIZED'   => [
+            'lib/Math/BigFloat.pm',
+            'lib/Math/BigInt.pm',
+            'lib/Math/BigInt/Calc.pm',
+            'lib/Math/BigInt/Lib.pm',
+            'lib/Math-BigInt/t/calling.t'
+        ],
     },
 
     'Math::BigInt::FastCalc' => {
index 1b7b2f2..4bf6e8c 100644 (file)
@@ -19,7 +19,7 @@ use warnings;
 use Carp qw< carp croak >;
 use Math::BigInt ();
 
-our $VERSION = '1.999817';
+our $VERSION = '1.999817_01';
 
 require Exporter;
 our @ISA        = qw/Math::BigInt/;
@@ -4597,7 +4597,7 @@ sub numify {
     }
 
     # Create a string and let Perl's atoi()/atof() handle the rest.
-    return 0 + $x -> bsstr();
+    return 0 + $x -> bnstr();
 }
 
 ###############################################################################
index 127f46b..26e009c 100644 (file)
@@ -22,7 +22,7 @@ use warnings;
 
 use Carp qw< carp croak >;
 
-our $VERSION = '1.999817';
+our $VERSION = '1.999817_01';
 
 require Exporter;
 our @ISA = qw(Exporter);
index 8634125..0e85ce0 100644 (file)
@@ -7,7 +7,7 @@ use warnings;
 use Carp qw< carp croak >;
 use Math::BigInt::Lib;
 
-our $VERSION = '1.999817';
+our $VERSION = '1.999817_01';
 
 our @ISA = ('Math::BigInt::Lib');
 
index 619c8d9..fa85b6a 100644 (file)
@@ -4,7 +4,7 @@ use 5.006001;
 use strict;
 use warnings;
 
-our $VERSION = '1.999817';
+our $VERSION = '1.999817_01';
 
 use Carp;
 
index 4b2690b..a690e36 100644 (file)
@@ -6,7 +6,7 @@ use strict;
 use warnings;
 use lib 't';
 
-my $VERSION = '1.999817';       # adjust manually to match latest release
+my $VERSION = '1.999817_01';       # adjust manually to match latest release
 
 use Test::More tests => 5;
 
index 9a67b52..35a36b2 100644 (file)
@@ -9,6 +9,10 @@ Digest::MD5 cpan/Digest-MD5/MD5.xs 249bed648232192ce018f7f894ad127c3a639831
 Digest::MD5 cpan/Digest-MD5/t/files.t e987329d2411ff60ad9a2bdf93fdf5f6943467e8
 Filter::Util::Call pod/perlfilter.pod e9833bf4ebc51087dfee5c553e0f8a5eef67212d
 Locale::Maketext::Simple cpan/Locale-Maketext-Simple/lib/Locale/Maketext/Simple.pm 57ed38905791a17c150210cd6f42ead22a7707b6
+Math::BigInt cpan/Math-BigInt/lib/Math/BigFloat.pm 4bc175802939bf831e0cef6e79528ff0bcc18171
+Math::BigInt cpan/Math-BigInt/lib/Math/BigInt.pm 7a913de4b2e3a13c3020dd5aff6e2ed46381732a
+Math::BigInt cpan/Math-BigInt/lib/Math/BigInt/Calc.pm c35d1e32c38459ead7bfb7780e21fd4c7d3f5a2b
+Math::BigInt cpan/Math-BigInt/lib/Math/BigInt/Lib.pm 1e857a3a32c99d84c42435523a574b30913537d6
 Math::Complex cpan/Math-Complex/lib/Math/Complex.pm 198ea6c6c584f5ea79a0fd7e9d411d0878f3b2af
 Math::Complex cpan/Math-Complex/t/Complex.t 4f307ed6fc59f1e5fb0e6b11103fc631b6bdb335
 Math::Complex cpan/Math-Complex/t/Trig.t 2682526e23a161d54732c2a66393fe4a234d1865