This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade Math::BigInt from version 1.999802 to 1.999803
authorSteve Hay <steve.m.hay@googlemail.com>
Wed, 7 Dec 2016 08:25:50 +0000 (08:25 +0000)
committerSteve Hay <steve.m.hay@googlemail.com>
Wed, 7 Dec 2016 23:19:24 +0000 (23:19 +0000)
MANIFEST
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/CalcEmu.pm
cpan/Math-BigInt/lib/Math/BigInt/Lib.pm
cpan/Math-BigInt/t/Math/BigFloat/#Subclass.pm# [new file with mode: 0644]
cpan/Math-BigInt/t/Math/BigInt/BareCalc.pm
cpan/Math-BigInt/t/calling.t

index efe9d80..2c89f48 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -1730,6 +1730,7 @@ cpan/Math-BigInt/t/from_oct-mbf.t Test Math::BigInt
 cpan/Math-BigInt/t/inf_nan.t           Special tests for inf and *NaN* handling
 cpan/Math-BigInt/t/isa.t               Test for Math::BigInt inheritance
 cpan/Math-BigInt/t/lib_load.t          Test sane lib names
+cpan/Math-BigInt/t/Math/BigFloat/#Subclass.pm#
 cpan/Math-BigInt/t/Math/BigFloat/Subclass.pm   Empty subclass of BigFloat for test
 cpan/Math-BigInt/t/Math/BigInt/BareCalc.pm     Bigint's simulation of Calc
 cpan/Math-BigInt/t/Math/BigInt/Lib/Minimal.pm
index 241476e..a70e611 100755 (executable)
@@ -762,10 +762,9 @@ use File::Glob qw(:case);
     },
 
     'Math::BigInt' => {
-        'DISTRIBUTION' => 'PJACKLAM/Math-BigInt-1.999802.tar.gz',
+        'DISTRIBUTION' => 'PJACKLAM/Math-BigInt-1.999803.tar.gz',
         'FILES'        => q[cpan/Math-BigInt],
         'EXCLUDED'     => [
-            qr{^inc/},
             qr{^examples/},
             qr{^t/author-},
             qw( t/00sig.t
index 415e082..eee9897 100644 (file)
@@ -19,8 +19,7 @@ use warnings;
 use Carp ();
 use Math::BigInt ();
 
-our $VERSION = '1.999802';
-$VERSION = eval $VERSION;
+our $VERSION = '1.999803';
 
 require Exporter;
 our @ISA        = qw/Math::BigInt/;
index 39001e9..bd98fda 100644 (file)
@@ -20,8 +20,7 @@ use warnings;
 
 use Carp ();
 
-our $VERSION = '1.999802';
-$VERSION = eval $VERSION;
+our $VERSION = '1.999803';
 
 our @ISA = qw(Exporter);
 our @EXPORT_OK = qw(objectify bgcd blcm);
index aca84b5..c0a089b 100644 (file)
@@ -7,8 +7,7 @@ use warnings;
 use Carp;
 use Math::BigInt::Lib;
 
-our $VERSION = '1.999802';
-$VERSION = eval $VERSION;
+our $VERSION = '1.999803';
 
 our @ISA = ('Math::BigInt::Lib');
 
index 45b47c3..13cc8e8 100644 (file)
@@ -4,8 +4,7 @@ use 5.006001;
 use strict;
 use warnings;
 
-our $VERSION = '1.999802';
-$VERSION = eval $VERSION;
+our $VERSION = '1.999803';
 
 package Math::BigInt;
 
index 8bd4038..32ccef9 100644 (file)
@@ -4,8 +4,7 @@ use 5.006001;
 use strict;
 use warnings;
 
-our $VERSION = '1.999802';
-$VERSION = eval $VERSION;
+our $VERSION = '1.999803';
 
 use Carp;
 
diff --git a/cpan/Math-BigInt/t/Math/BigFloat/#Subclass.pm# b/cpan/Math-BigInt/t/Math/BigFloat/#Subclass.pm#
new file mode 100644 (file)
index 0000000..f35e267
--- /dev/null
@@ -0,0 +1,49 @@
+#!perl
+
+# for testing subclassing Math::BigFloat
+
+package Math::BigFloat::Subclass;
+
+require 5.006;
+
+use strict;
+use warnings;
+
+use Exporter;
+use Math::BigFloat 1.38;
+
+our ($accuracy, $precision, $round_mode, $div_scale);
+
+our @ISA = qw(Exporter Math::BigFloat);
+
+our $VERSION = "0.06";
+
+use overload;                   # inherit overload from BigInt
+
+# Globals
+$accuracy = $precision = undef;
+$round_mode = 'even';
+$div_scale = 40;
+
+sub new {
+    my $proto = shift;
+    my $class = ref($proto) || $proto;
+
+    my $value = shift;
+    my $a = $accuracy;  $a = $_[0] if defined $_[0];
+    my $p = $precision; $p = $_[1] if defined $_[1];
+    # Store the floating point value
+    my $self = Math::BigFloat->new($value, $a, $p, $round_mode);
+    bless $self, $class;
+    $self->{'_custom'} = 1;     # make sure this never goes away
+    return $self;
+}
+
+BEGIN {
+    *objectify = \&Math::BigInt::objectify;
+    # to allow Math::BigFloat::Subclass::bgcd( ... ) style calls
+    *bgcd = \&Math::BigFloat::bgcd;
+    *blcm = \&Math::BigFloat::blcm;
+}
+
+1;
index fd4f385..86522d5 100644 (file)
@@ -5,7 +5,7 @@ package Math::BigInt::BareCalc;
 use strict;
 use warnings;
 
-our $VERSION = '1.999801';
+our $VERSION = '1.999803';
 
 # Package to to test Bigint's simulation of Calc
 
index 3b23eab..56f0b46 100644 (file)
@@ -6,8 +6,7 @@ use strict;
 use warnings;
 use lib 't';
 
-my $VERSION = '1.999800';       # adjust manually to match latest release
-$VERSION = eval $VERSION;
+my $VERSION = '1.999803';       # adjust manually to match latest release
 
 use Test::More tests => 5;