Hello community,
here is the log from the commit of package perl-Math-BigInt for
openSUSE:Factory checked in at 2016-12-02 16:42:00
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Math-BigInt (Old)
and /work/SRC/openSUSE:Factory/.perl-Math-BigInt.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Math-BigInt"
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Math-BigInt/perl-Math-BigInt.changes
2016-11-28 15:07:49.000000000 +0100
+++ /work/SRC/openSUSE:Factory/.perl-Math-BigInt.new/perl-Math-BigInt.changes
2016-12-02 16:42:02.000000000 +0100
@@ -1,0 +2,15 @@
+Tue Nov 29 06:46:19 UTC 2016 - co...@suse.com
+
+- updated to 1.999802
+ see /usr/share/doc/packages/perl-Math-BigInt/CHANGES
+
+ 2016-11-28 v1.999802 pjacklam
+
+ * When bzero(), bone(), binf(), and bnan() are used as constructors, don't
+ check whether the class allows the object to be modified. This applies to
+ both Math::BigInt and Math::BigFloat.
+
+ * Improve bgcd() and blcm(). This applies to both Math::BigInt and
+ Math::BigFloat.
+
+-------------------------------------------------------------------
Old:
----
Math-BigInt-1.999801.tar.gz
New:
----
Math-BigInt-1.999802.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Math-BigInt.spec ++++++
--- /var/tmp/diff_new_pack.dKWzBT/_old 2016-12-02 16:42:03.000000000 +0100
+++ /var/tmp/diff_new_pack.dKWzBT/_new 2016-12-02 16:42:03.000000000 +0100
@@ -17,7 +17,7 @@
Name: perl-Math-BigInt
-Version: 1.999801
+Version: 1.999802
Release: 0
%define cpan_name Math-BigInt
Summary: Arbitrary size integer/float math package
@@ -49,6 +49,7 @@
%prep
%setup -q -n %{cpan_name}-%{version}
+find . -type f ! -name \*.pl -print0 | xargs -0 chmod 644
%build
%{__perl} Makefile.PL INSTALLDIRS=vendor
++++++ Math-BigInt-1.999801.tar.gz -> Math-BigInt-1.999802.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Math-BigInt-1.999801/CHANGES
new/Math-BigInt-1.999802/CHANGES
--- old/Math-BigInt-1.999801/CHANGES 2016-11-23 12:55:20.000000000 +0100
+++ new/Math-BigInt-1.999802/CHANGES 2016-11-28 12:23:00.000000000 +0100
@@ -1941,6 +1941,15 @@
if the specified library can't be loaded rather than using the fallback
library.
+2016-11-28 v1.999802 pjacklam
+
+ * When bzero(), bone(), binf(), and bnan() are used as constructors, don't
+ check whether the class allows the object to be modified. This applies to
+ both Math::BigInt and Math::BigFloat.
+
+ * Improve bgcd() and blcm(). This applies to both Math::BigInt and
+ Math::BigFloat.
+
Please send us test-reports, your experiences with this and your ideas - we
love to hear about our work!
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Math-BigInt-1.999801/META.json
new/Math-BigInt-1.999802/META.json
--- old/Math-BigInt-1.999801/META.json 2016-11-23 20:08:35.000000000 +0100
+++ new/Math-BigInt-1.999802/META.json 2016-11-28 19:52:29.000000000 +0100
@@ -40,6 +40,6 @@
}
},
"release_status" : "stable",
- "version" : "1.999801",
+ "version" : "1.999802",
"x_serialization_backend" : "JSON::PP version 2.27400"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Math-BigInt-1.999801/META.yml
new/Math-BigInt-1.999802/META.yml
--- old/Math-BigInt-1.999801/META.yml 2016-11-23 20:08:33.000000000 +0100
+++ new/Math-BigInt-1.999802/META.yml 2016-11-28 19:52:25.000000000 +0100
@@ -22,5 +22,5 @@
Math::Complex: '1.39'
Test::More: '0.94'
perl: '5.006001'
-version: '1.999801'
+version: '1.999802'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Math-BigInt-1.999801/SIGNATURE
new/Math-BigInt-1.999802/SIGNATURE
--- old/Math-BigInt-1.999801/SIGNATURE 2016-11-23 20:08:38.000000000 +0100
+++ new/Math-BigInt-1.999802/SIGNATURE 2016-11-28 19:52:33.000000000 +0100
@@ -1,5 +1,5 @@
This file contains message digests of all files listed in MANIFEST,
-signed via the Module::Signature module, version 0.80.
+signed via the Module::Signature module, version 0.81.
To verify the content in this distribution, first make sure you have
Module::Signature installed, then type:
@@ -16,15 +16,15 @@
SHA1 351109d418d3d08d4dd61b31475e7d5b8177e3e9 BENCHMARK
SHA1 20104176cd4b0623c201cdb2c9583056898b2afc BUGS
-SHA1 882388054871ff7330095c8c6c1675fc5f246756 CHANGES
+SHA1 976020c04207628fd89be933626da1963b0852db CHANGES
SHA1 a40e6f05bfd2a3e0542cf9e4971b1d48100eb2fd CREDITS
SHA1 8d0b726d78afa344fb12508e1b027079699570e4 GOALS
SHA1 fe61299e80a1dca48fbaa33f0869e3238ec07c70 HISTORY
SHA1 d6a6c30ee6d9ba6b9afab8bbf6a25e1b23c744e0 LICENSE
SHA1 bc4c6da387ea99703fddc3cf36cc6487b356d916 MANIFEST
SHA1 86df44fbe1ea7a68897113f0e327d0f0c25b91e3 MANIFEST.SKIP
-SHA1 6a669796a50094e719320b3fefeb0700de2a0a4b META.json
-SHA1 07f09a5e6d0014b0e3f9fd34680a50fd1b700a79 META.yml
+SHA1 b3da4b0c330c896ebeadb7de3b379017b336f3a3 META.json
+SHA1 908daf70d2fa57e287d53d3286dd4db3a7cace4c META.yml
SHA1 d1e9fafb6b18734f18252694c9c67e943117d9eb Makefile.PL
SHA1 4e2191d1724e699862efc5350f480c8e02755112 NEW
SHA1 813c62e6d3edd18b7b634765ecbd75b2cd6389a0 README
@@ -40,13 +40,13 @@
SHA1 2f5be6af6098acf6d786a4a7299a34d0c6c04ef9 inc/Module/Install/Metadata.pm
SHA1 aa6723cc4a8d4475026f6ceb28e1f16459e8a11b inc/Module/Install/Win32.pm
SHA1 6661285caedfe012cb5a1ca915a422ffc292ae2b inc/Module/Install/WriteAll.pm
-SHA1 dc1d725084ab4822c7b75e7ceb237337008c617c lib/Math/BigFloat.pm
-SHA1 d3d6d0c01b51a44bf682f7b79f86098df71ef7be lib/Math/BigInt.pm
-SHA1 8ca46439816e4e000c6ad8d6fcc7f1c6af709745 lib/Math/BigInt/Calc.pm
-SHA1 107c62d2ff56bdf64f16d560be80b55a62cb130e lib/Math/BigInt/CalcEmu.pm
-SHA1 8a41f4534cdd985abedcbbd18ffdaf28ee16d6d7 lib/Math/BigInt/Lib.pm
+SHA1 3cf43babf5166402cb86e855e0b83ea58287ce25 lib/Math/BigFloat.pm
+SHA1 d1681acd850ae4be856ca84461c38296fb283d01 lib/Math/BigInt.pm
+SHA1 864e70530fc3eefbdfa5f7c61a519a92afbd7038 lib/Math/BigInt/Calc.pm
+SHA1 8e4671a94d11d7886654ef6e07b312504945e18b lib/Math/BigInt/CalcEmu.pm
+SHA1 358ccae4bfb8da7ba2a12667e37da6a42fed9de3 lib/Math/BigInt/Lib.pm
SHA1 385cc7ed3bf3e6290640b9880445ca9a3dea629e t/00sig.t
-SHA1 551efa40942b38f7f521b5a511d08f29ef7b4a1b t/01load.t
+SHA1 062a7e33e6697b19e002cdb11f3c648fe6669139 t/01load.t
SHA1 b2ed9206ca5b69ec3b8bbf850bf4b6dfde518e7e t/02pod.t
SHA1 70791ee5e7358a9605f95a1aa02a566210bec223 t/03podcov.t
SHA1 a323fbde83f97abdedc14ff923a2ecabb1333e2d t/Math/BigFloat/Subclass.pm
@@ -222,11 +222,11 @@
SHA1 33e23e08da0a2ee6861350a81e843a2522b4966b t/with_sub.t
-----BEGIN PGP SIGNATURE-----
-iQEcBAEBAgAGBQJYNek0AAoJEGcmPl2fr166puIIALDtwdndM7QRK6Ckvj8t47qP
-K5gF2Gja/GpoLKy69gIhRNoDtnb5hKbIj33FNxa4nV110IXh3GDAWn+lZmsWTxjl
-DgHcXHGKTIKq1ImJqICADmqK5cZ/Qh+T9P3jYJGFfcZcljwpa8JE94GBxum7bPND
-/ekelvOJrrcy8jIkNAt0u52chm32QaR3Sg8cpCo0i2S5TU+nuGcVGeb45HdWEIak
-Hw3hpoik+ogBTdCvn14u5Aa1Z6Hd2XHsu+10VMwz9cIqtKyR0H357B+JSn0c3b/3
-OyhV1EA0qqrLwffri/C5x8J7MuY1owHzl3OXsWU6PBq8mqrAvpYXVL/Y4As00YQ=
-=QEBV
+iQEcBAEBAgAGBQJYPHzvAAoJEGcmPl2fr1666h4H/25vPEMhUNC6TB2IHcTzKyyt
+skyn7n/2CZRcb4eWseoakqoHVXC85ljw0djNhUPAFzJBUunNHxlIKdMYOZ6Nv79S
+tO4wP3P6hkl3JxCidcz/VJEuCzz+zo6A0uJCHeb2a+rqDkuqOOXnCocmJwxvDyIj
+8daoeLL5KzQXXhPzxJAP6LcznZ7HpDLCrT9pTYKAC9sOB8U49c4jfSeXCR0j5BID
+vsCa4GVzhQRmorWY2+8yZOm/z95OarrsRRw2pszqrqGRQvKCX8YYAsbZrlPC+G2l
+67CsHybk3z6EfNoHZ9vnQO1KseHmkCe/xOZHPFHWMyLPxkq/u4xvkeNHCP5JFpk=
+=Fidz
-----END PGP SIGNATURE-----
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Math-BigInt-1.999801/lib/Math/BigFloat.pm
new/Math-BigInt-1.999802/lib/Math/BigFloat.pm
--- old/Math-BigInt-1.999801/lib/Math/BigFloat.pm 2016-11-22
15:48:23.000000000 +0100
+++ new/Math-BigInt-1.999802/lib/Math/BigFloat.pm 2016-11-28
13:32:51.000000000 +0100
@@ -19,7 +19,7 @@
use Carp ();
use Math::BigInt ();
-our $VERSION = '1.999801';
+our $VERSION = '1.999802';
$VERSION = eval $VERSION;
require Exporter;
@@ -776,7 +776,7 @@
my $class = $selfref || $self;
$self->import() if $IMPORT == 0; # make require work
- return if $self->modify('bzero');
+ return if $selfref && $self->modify('bzero');
$self = bless {}, $class unless $selfref;
@@ -815,7 +815,7 @@
my $class = $selfref || $self;
$self->import() if $IMPORT == 0; # make require work
- return if $self->modify('bone');
+ return if $selfref && $self->modify('bone');
my $sign = shift;
$sign = defined $sign && $sign =~ /^\s*-/ ? "-" : "+";
@@ -866,7 +866,7 @@
}
$self->import() if $IMPORT == 0; # make require work
- return if $self->modify('binf');
+ return if $selfref && $self->modify('binf');
my $sign = shift;
$sign = defined $sign && $sign =~ /^\s*-/ ? "-" : "+";
@@ -902,7 +902,7 @@
}
$self->import() if $IMPORT == 0; # make require work
- return if $self->modify('bnan');
+ return if $selfref && $self->modify('bnan');
$self = bless {}, $class unless $selfref;
@@ -3531,7 +3531,6 @@
my ($class, $x, $a, $p, $r) = ref($_[0]) ? (ref($_[0]), @_) : objectify(1,
@_);
return $x if $x->modify('bfloor');
-
return $x if $x->{sign} !~ /^[+-]$/; # nan, +inf, -inf
# if $x has digits after dot
@@ -3597,15 +3596,12 @@
my $x = shift @args;
$x = ref($x) && $x -> isa($class) ? $x -> copy() : $class -> new($x);
- $x -> babs();
return $class->bnan() unless $x -> is_int();
while (@args) {
my $y = shift @args;
- $y = ref($y) && $y -> isa($class) ? $y -> copy() -> babs()
- : $class -> new($y);
+ $y = $class->new($y) unless ref($y) && $y -> isa($class);
return $class->bnan() unless $y -> is_int();
- $y -> babs();
# greatest common divisor
while (! $y->is_zero()) {
@@ -3614,30 +3610,32 @@
last if $x -> is_one();
}
- $x;
+ return $x -> babs();
}
sub blcm {
# (BFLOAT or num_str, BFLOAT or num_str) return BFLOAT
# does not modify arguments, but returns new object
- # Lowest Common Multiplicator
+ # Least Common Multiple
unshift @_, __PACKAGE__
unless ref($_[0]) || $_[0] =~ /^[a-z]\w*(?:::[a-z]\w*)*$/i;
my ($class, @args) = objectify(0, @_);
- my $x = $class -> bone();
+ my $x = shift @args;
+ $x = ref($x) && $x -> isa($class) ? $x -> copy() : $class -> new($x);
+ return $class->bnan() if $x->{sign} !~ /^[+-]$/; # x NaN?
+
while (@args) {
my $y = shift @args;
- $y = ref($y) && $y -> isa($class) ? $y -> copy() -> babs()
- : $class -> new($y);
+ $y = $class -> new($y) unless ref($y) && $y -> isa($class);
return $x->bnan() unless $y -> is_int();
-
my $gcd = $x -> bgcd($y);
$x -> bdiv($gcd) -> bmul($y);
}
- $x;
+
+ return $x -> babs();
}
###############################################################################
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Math-BigInt-1.999801/lib/Math/BigInt/Calc.pm
new/Math-BigInt-1.999802/lib/Math/BigInt/Calc.pm
--- old/Math-BigInt-1.999801/lib/Math/BigInt/Calc.pm 2016-11-22
15:48:23.000000000 +0100
+++ new/Math-BigInt-1.999802/lib/Math/BigInt/Calc.pm 2016-11-28
13:32:51.000000000 +0100
@@ -7,7 +7,7 @@
use Carp;
use Math::BigInt::Lib;
-our $VERSION = '1.999801';
+our $VERSION = '1.999802';
$VERSION = eval $VERSION;
our @ISA = ('Math::BigInt::Lib');
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Math-BigInt-1.999801/lib/Math/BigInt/CalcEmu.pm
new/Math-BigInt-1.999802/lib/Math/BigInt/CalcEmu.pm
--- old/Math-BigInt-1.999801/lib/Math/BigInt/CalcEmu.pm 2016-11-22
15:48:23.000000000 +0100
+++ new/Math-BigInt-1.999802/lib/Math/BigInt/CalcEmu.pm 2016-11-28
13:32:51.000000000 +0100
@@ -4,7 +4,7 @@
use strict;
use warnings;
-our $VERSION = '1.999801';
+our $VERSION = '1.999802';
$VERSION = eval $VERSION;
package Math::BigInt;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Math-BigInt-1.999801/lib/Math/BigInt/Lib.pm
new/Math-BigInt-1.999802/lib/Math/BigInt/Lib.pm
--- old/Math-BigInt-1.999801/lib/Math/BigInt/Lib.pm 2016-11-22
15:48:23.000000000 +0100
+++ new/Math-BigInt-1.999802/lib/Math/BigInt/Lib.pm 2016-11-28
13:32:51.000000000 +0100
@@ -4,7 +4,7 @@
use strict;
use warnings;
-our $VERSION = '1.999801';
+our $VERSION = '1.999802';
$VERSION = eval $VERSION;
use Carp;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Math-BigInt-1.999801/lib/Math/BigInt.pm
new/Math-BigInt-1.999802/lib/Math/BigInt.pm
--- old/Math-BigInt-1.999801/lib/Math/BigInt.pm 2016-11-22 11:15:04.000000000
+0100
+++ new/Math-BigInt-1.999802/lib/Math/BigInt.pm 2016-11-28 13:32:51.000000000
+0100
@@ -20,7 +20,7 @@
use Carp ();
-our $VERSION = '1.999801';
+our $VERSION = '1.999802';
$VERSION = eval $VERSION;
our @ISA = qw(Exporter);
@@ -879,7 +879,7 @@
my $class = $selfref || $self;
$self->import() if $IMPORT == 0; # make require work
- return if $self->modify('bzero');
+ return if $selfref && $self->modify('bzero');
$self = bless {}, $class unless $selfref;
@@ -916,7 +916,7 @@
my $class = $selfref || $self;
$self->import() if $IMPORT == 0; # make require work
- return if $self->modify('bzero');
+ return if $selfref && $self->modify('bone');
my $sign = shift;
$sign = defined $sign && $sign =~ /^\s*-/ ? "-" : "+";
@@ -965,7 +965,7 @@
}
$self->import() if $IMPORT == 0; # make require work
- return if $self->modify('binf');
+ return if $selfref && $self->modify('binf');
my $sign = shift;
$sign = defined $sign && $sign =~ /^\s*-/ ? "-" : "+";
@@ -999,7 +999,7 @@
}
$self->import() if $IMPORT == 0; # make require work
- return if $self->modify('bnan');
+ return if $selfref && $self->modify('bnan');
$self = bless {}, $class unless $selfref;
@@ -3097,7 +3097,7 @@
my $x = shift @args;
$x = ref($x) && $x -> isa($class) ? $x -> copy() : $class -> new($x);
- $x -> babs();
+
return $class->bnan() if $x->{sign} !~ /^[+-]$/; # x NaN?
while (@args) {
@@ -3107,17 +3107,20 @@
$x->{value} = $CALC->_gcd($x->{value}, $y->{value});
last if $CALC->_is_one($x->{value});
}
- $x;
+
+ return $x -> babs();
}
sub blcm {
# (BINT or num_str, BINT or num_str) return BINT
# does not modify arguments, but returns new object
- # Lowest Common Multiple
+ # Least Common Multiple
my ($class, @args) = objectify(0, @_);
- my $x = $class -> bone();
+ my $x = shift @args;
+ $x = ref($x) && $x -> isa($class) ? $x -> copy() : $class -> new($x);
+ return $class->bnan() if $x->{sign} !~ /^[+-]$/; # x NaN?
while (@args) {
my $y = shift @args;
@@ -3125,7 +3128,8 @@
return $x->bnan() if $y->{sign} !~ /^[+-]$/; # y not integer
$x -> {value} = $CALC->_lcm($x -> {value}, $y -> {value});
}
- $x;
+
+ return $x -> babs();
}
###############################################################################
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Math-BigInt-1.999801/t/01load.t
new/Math-BigInt-1.999802/t/01load.t
--- old/Math-BigInt-1.999801/t/01load.t 2016-07-11 13:08:02.000000000 +0200
+++ new/Math-BigInt-1.999802/t/01load.t 2016-11-28 19:42:44.000000000 +0100
@@ -12,6 +12,7 @@
my @mods = ('Math::BigInt',
'Math::BigFloat',
+ 'Math::BigInt::Lib',
'Math::BigInt::Calc',
);
