This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade bignum from version 0.42 to 0.43
authorSteve Hay <steve.m.hay@googlemail.com>
Tue, 12 Jul 2016 07:37:08 +0000 (08:37 +0100)
committerSteve Hay <steve.m.hay@googlemail.com>
Tue, 12 Jul 2016 07:37:08 +0000 (08:37 +0100)
Porting/Maintainers.pl
cpan/bignum/lib/Math/BigFloat/Trace.pm
cpan/bignum/lib/Math/BigInt/Trace.pm
cpan/bignum/lib/bigint.pm
cpan/bignum/lib/bignum.pm
cpan/bignum/lib/bigrat.pm
cpan/bignum/t/bigexp.t

index 94dbe17..e244137 100755 (executable)
@@ -184,7 +184,7 @@ use File::Glob qw(:case);
     },
 
     'bignum' => {
     },
 
     'bignum' => {
-        'DISTRIBUTION' => 'PJACKLAM/bignum-0.42.tar.gz',
+        'DISTRIBUTION' => 'PJACKLAM/bignum-0.43.tar.gz',
         'FILES'        => q[cpan/bignum],
         'EXCLUDED'     => [
             qr{^inc/Module/},
         'FILES'        => q[cpan/bignum],
         'EXCLUDED'     => [
             qr{^inc/Module/},
index 5e043f5..c1aabce 100644 (file)
@@ -13,7 +13,7 @@ our ($PACKAGE, @EXPORT_OK, $accuracy, $precision, $round_mode, $div_scale);
 
 our @ISA = qw(Exporter Math::BigFloat);
 
 
 our @ISA = qw(Exporter Math::BigFloat);
 
-our $VERSION = '0.42';
+our $VERSION = '0.43';
 
 use overload;                   # inherit overload from BigFloat
 
 
 use overload;                   # inherit overload from BigFloat
 
index 646c05f..e780e66 100644 (file)
@@ -13,7 +13,7 @@ our ($PACKAGE, @EXPORT_OK, $accuracy, $precision, $round_mode, $div_scale);
 
 our @ISA = qw(Exporter Math::BigInt);
 
 
 our @ISA = qw(Exporter Math::BigInt);
 
-our $VERSION = '0.42';
+our $VERSION = '0.43';
 
 use overload;                   # inherit overload from BigInt
 
 
 use overload;                   # inherit overload from BigInt
 
index a47191e..fa30eb8 100644 (file)
@@ -4,7 +4,7 @@ use 5.006;
 use strict;
 use warnings;
 
 use strict;
 use warnings;
 
-our $VERSION = '0.42';
+our $VERSION = '0.43';
 
 use Exporter;
 our @ISA            = qw( Exporter );
 
 use Exporter;
 our @ISA            = qw( Exporter );
@@ -359,8 +359,8 @@ sub import {
     }
 }
 
     }
 }
 
-sub inf () { Math::BigInt::binf(); }
-sub NaN () { Math::BigInt::bnan(); }
+sub inf () { Math::BigInt->binf(); }
+sub NaN () { Math::BigInt->bnan(); }
 
 sub PI () { Math::BigInt->new(3); }
 sub e () { Math::BigInt->new(2); }
 
 sub PI () { Math::BigInt->new(3); }
 sub e () { Math::BigInt->new(2); }
index 90d5db5..bf2881e 100644 (file)
@@ -4,7 +4,7 @@ use 5.006;
 use strict;
 use warnings;
 
 use strict;
 use warnings;
 
-our $VERSION = '0.42';
+our $VERSION = '0.43';
 
 use Exporter;
 our @ISA            = qw( bigint );
 
 use Exporter;
 our @ISA            = qw( bigint );
index 79fe84d..8557fc9 100644 (file)
@@ -4,7 +4,7 @@ use 5.006;
 use strict;
 use warnings;
 
 use strict;
 use warnings;
 
-our $VERSION = '0.42';
+our $VERSION = '0.43';
 
 use Exporter;
 our @ISA            = qw( bigint );
 
 use Exporter;
 our @ISA            = qw( bigint );
index 03355a5..61d39b2 100644 (file)
@@ -12,7 +12,6 @@ use bignum;
 
 my $ln_ev = -7 / (10 ** 17);
 my $ev    = exp($ln_ev);
 
 my $ln_ev = -7 / (10 ** 17);
 my $ev    = exp($ln_ev);
-
 is(sprintf('%0.5f', $ev),       '1.00000', '($ev) is approx. 1');
 is(sprintf('%0.5f', 1 - $ev),   '0.00000', '(1-$ev) is approx. 0');
 is(sprintf('%0.5f', 1 - "$ev"), '0.00000', '(1-"$ev") is approx. 0');
 is(sprintf('%0.5f', $ev),       '1.00000', '($ev) is approx. 1');
 is(sprintf('%0.5f', 1 - $ev),   '0.00000', '(1-$ev) is approx. 0');
 is(sprintf('%0.5f', 1 - "$ev"), '0.00000', '(1-"$ev") is approx. 0');