This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade bignum from version 0.49 to 0.50
authorSteve Hay <steve.m.hay@googlemail.com>
Wed, 4 Jul 2018 16:51:34 +0000 (17:51 +0100)
committerSteve Hay <steve.m.hay@googlemail.com>
Wed, 4 Jul 2018 20:37:52 +0000 (21: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/option_l.t

index 7c314d6..18333c8 100755 (executable)
@@ -192,14 +192,13 @@ use File::Glob qw(:case);
     },
 
     'bignum' => {
-        'DISTRIBUTION' => 'PJACKLAM/bignum-0.49.tar.gz',
+        'DISTRIBUTION' => 'PJACKLAM/bignum-0.50.tar.gz',
         'FILES'        => q[cpan/bignum],
         'EXCLUDED'     => [
             qr{^t/author-},
+            qr{^t/release-},
             qw( t/00sig.t
                 t/01load.t
-                t/02pod.t
-                t/03podcov.t
                 ),
         ],
     },
index 04dec98..5c2525d 100644 (file)
@@ -13,7 +13,7 @@ our ($accuracy, $precision, $round_mode, $div_scale);
 
 our @ISA = qw(Exporter Math::BigFloat);
 
-our $VERSION = '0.49';
+our $VERSION = '0.50';
 
 use overload;                   # inherit overload from Math::BigFloat
 
index 5f83c79..500e128 100644 (file)
@@ -13,7 +13,7 @@ our ($accuracy, $precision, $round_mode, $div_scale);
 
 our @ISA = qw(Exporter Math::BigInt);
 
-our $VERSION = '0.49';
+our $VERSION = '0.50';
 
 use overload;                   # inherit overload from Math::BigInt
 
index 92aeae8..b5f1fae 100644 (file)
@@ -4,7 +4,7 @@ use 5.010;
 use strict;
 use warnings;
 
-our $VERSION = '0.49';
+our $VERSION = '0.50';
 
 use Exporter;
 our @ISA            = qw( Exporter );
index e052aab..89958c9 100644 (file)
@@ -4,7 +4,7 @@ use 5.010;
 use strict;
 use warnings;
 
-our $VERSION = '0.49';
+our $VERSION = '0.50';
 
 use Exporter;
 our @ISA            = qw( bigint );
index 45682f7..ec9e72b 100644 (file)
@@ -4,7 +4,7 @@ use 5.010;
 use strict;
 use warnings;
 
-our $VERSION = '0.49';
+our $VERSION = '0.50';
 
 use Exporter;
 our @ISA            = qw( bigint );
index 4744ded..9e4d4ca 100644 (file)
@@ -11,10 +11,9 @@ use bignum;
 
 my @WARNINGS;
 {
-    # catch warnings:
-    require Carp;
-    no warnings 'redefine';
-    *Carp::carp = sub { push @WARNINGS, $_[0]; };
+    # This hack is to catch warnings. Math::BigInt imports 'carp' from 'Carp',
+    # so we redefine it to catch the warnings.
+    *Math::BigInt::carp = sub { push @WARNINGS, $_[0]; };
 }
 
 my $rc;