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', );