Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package perl-Math-BigInt for openSUSE:Factory checked in at 2022-07-05 12:09:25 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Math-BigInt (Old) and /work/SRC/openSUSE:Factory/.perl-Math-BigInt.new.1548 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Math-BigInt" Tue Jul 5 12:09:25 2022 rev:44 rq:986679 version:1.999837 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Math-BigInt/perl-Math-BigInt.changes 2022-06-28 15:21:37.817875931 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Math-BigInt.new.1548/perl-Math-BigInt.changes 2022-07-05 12:09:57.748598291 +0200 @@ -1,0 +2,11 @@ +Sun Jul 3 03:06:39 UTC 2022 - Tina M??ller <timueller+p...@suse.de> + +- updated to 1.999837 + see /usr/share/doc/packages/perl-Math-BigInt/CHANGES + + 1.999837 2022-07-02 + + * Improve the interoperability between objects of different classes for the + methods that are still used as functions. + +------------------------------------------------------------------- Old: ---- Math-BigInt-1.999836.tar.gz New: ---- Math-BigInt-1.999837.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Math-BigInt.spec ++++++ --- /var/tmp/diff_new_pack.EdnCQR/_old 2022-07-05 12:09:59.000600090 +0200 +++ /var/tmp/diff_new_pack.EdnCQR/_new 2022-07-05 12:09:59.004600095 +0200 @@ -18,7 +18,7 @@ %define cpan_name Math-BigInt Name: perl-Math-BigInt -Version: 1.999836 +Version: 1.999837 Release: 0 License: Artistic-1.0 OR GPL-1.0-or-later Summary: Arbitrary size integer math package ++++++ Math-BigInt-1.999836.tar.gz -> Math-BigInt-1.999837.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Math-BigInt-1.999836/CHANGES new/Math-BigInt-1.999837/CHANGES --- old/Math-BigInt-1.999836/CHANGES 2022-06-24 16:28:14.000000000 +0200 +++ new/Math-BigInt-1.999837/CHANGES 2022-07-02 14:19:56.000000000 +0200 @@ -1,3 +1,8 @@ +1.999837 2022-07-02 + + * Improve the interoperability between objects of different classes for the + methods that are still used as functions. + 1.999836 2022-06-24 * Improve compatibility with older versions of the Math-BigRat distribution. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Math-BigInt-1.999836/MANIFEST new/Math-BigInt-1.999837/MANIFEST --- old/Math-BigInt-1.999836/MANIFEST 2022-06-24 20:56:46.000000000 +0200 +++ new/Math-BigInt-1.999837/MANIFEST 2022-07-02 18:38:11.000000000 +0200 @@ -174,6 +174,12 @@ xt/author/from_ieee754-mbf.t xt/author/from_oct-mbf.t xt/author/from_oct-mbi.t +xt/author/interop-mbf-mbi.t +xt/author/interop-mbi-mbf.t +xt/author/interop-mbil-mbf.t +xt/author/interop-mbil-mbi.t +xt/author/interop-mbr-mbf.t +xt/author/interop-mbr-mbi.t xt/author/is_zero-mbf.t xt/author/is_zero-mbi.t xt/author/lib-arithmetic-binary-_add.dat diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Math-BigInt-1.999836/META.json new/Math-BigInt-1.999837/META.json --- old/Math-BigInt-1.999836/META.json 2022-06-24 20:56:43.000000000 +0200 +++ new/Math-BigInt-1.999837/META.json 2022-07-02 18:38:08.000000000 +0200 @@ -50,6 +50,6 @@ "web" : "https://github.com/pjacklam/p5-Math-BigInt" } }, - "version" : "1.999836", + "version" : "1.999837", "x_serialization_backend" : "JSON::PP version 4.09" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Math-BigInt-1.999836/META.yml new/Math-BigInt-1.999837/META.yml --- old/Math-BigInt-1.999836/META.yml 2022-06-24 20:56:39.000000000 +0200 +++ new/Math-BigInt-1.999837/META.yml 2022-07-02 18:38:05.000000000 +0200 @@ -24,5 +24,5 @@ perl: '5.006001' resources: repository: https://github.com/pjacklam/p5-Math-BigInt.git -version: '1.999836' +version: '1.999837' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Math-BigInt-1.999836/SIGNATURE new/Math-BigInt-1.999837/SIGNATURE --- old/Math-BigInt-1.999836/SIGNATURE 2022-06-24 20:56:55.000000000 +0200 +++ new/Math-BigInt-1.999837/SIGNATURE 2022-07-02 18:38:16.000000000 +0200 @@ -15,15 +15,15 @@ Hash: RIPEMD160 SHA256 961f8c23b6fc94cb9766265257dd548b190087df0c71dfd7d994bc649af5f002 BUGS -SHA256 5022c9057a8569d407915e19fa79425ca08c18d65fe506633985d414cea3b208 CHANGES +SHA256 ff6e661bb85121620f7afce30a73f12cc1816ab0341b88647a446bafd9c58b38 CHANGES SHA256 7d84c6e69ee6c3ab6301314d2fa4bc233f24bd36a4a546b2cfd05a078bda98b7 CREDITS SHA256 fd8f78318c23adef95971cc01ee0e79d68f52f60b761ba28129c8509fff46954 GOALS SHA256 28e80ee628ff111dd34a2a26af921693c9c823caadab30c848e4c4f4fc00830f HISTORY SHA256 b857edab549ac6893e2df5e1ec768ee46b62bcf1607a55e876f4d23f079eacce LICENSE -SHA256 6e1eb35aa7b022c983ed8f07247c1fbfaeda1894f884db826d06ef22aa481e4c MANIFEST +SHA256 eff8d9db8aa0fe02bc74643e8fdea5aaf423cd885e67d1d046526b903d4397b8 MANIFEST SHA256 6cbc650165422bed661f292abb91ffaefa416830203a2aa8c790114ce6535cde MANIFEST.SKIP -SHA256 9549ef5e4deae8e67eb43a1fe8412e33da64974739cf3f567b62fcde7175c376 META.json -SHA256 92c9d4fcde5da737878d7876d1061d5f32f7e1e8206910b85ef8e8f0e047e409 META.yml +SHA256 304e19de0dded923fe216259e271491b1692d2c657266d66d7cced67f515ae30 META.json +SHA256 f6ce709213efe573904d1586ea91302b4eabd970ef6bb673948bb46db4295571 META.yml SHA256 053b2511fa5ac8e6141b5596d6777220ef257a5ddfda3f3ff7325907757660a7 Makefile.PL SHA256 99f7f7df45a00c9f19ad38edec8c5dad5f5977c2b1a14ac3bb491ac193db1f7d NEW SHA256 2aadb8383836311d8b47a34b7eb1c68043ccd5b90bfc2d9c57016b33579d2385 README @@ -32,10 +32,10 @@ SHA256 77a80748e329a042faaa91eb0b44a493dfdfd726fec854a1a376c8404324b485 examples/1000.txt SHA256 702e323f59be58db758a3fa70ffe5fb80d392043bb855b0f172dd748809435df examples/bigprimes.pl SHA256 81a3ff3476038ec839c12a2b3548898055112bebc81fbf3513ee5efd6adfd0bd examples/prime.pl -SHA256 89dd3a3edb7c0dd78af06bd75168f57f978cf274e44f23f66f948e72b3112c72 lib/Math/BigFloat.pm -SHA256 2d9eb0cf70416c9b3304a61a94e18f058d48003add17d40b626cad5e4819a349 lib/Math/BigInt.pm -SHA256 deb55d30d19a22b4ebf8e9dd6484c87fd9f2c386cb9bbc56da6dfc73b775e569 lib/Math/BigInt/Calc.pm -SHA256 dad04ca1ca4d77f343827f7b50bc7b5a132cf4a93973577f1c73cd76e5879c7a lib/Math/BigInt/Lib.pm +SHA256 28e278e80e9f8c95f98bcb4d651a6c08bd8396045a8ae8aaba4ce58a9b8d0ae0 lib/Math/BigFloat.pm +SHA256 33a11cba8142b98f60ad00c38a5f759ef77559b55d875af2dc05a2bdc4c73cd5 lib/Math/BigInt.pm +SHA256 41959673347331a1a89653a9cd537355c9f0f0e18c69938393c49c47250deec1 lib/Math/BigInt/Calc.pm +SHA256 f354275521f3a6d3e3359d18ed27278ea4259d45ac604ffd05cd29af033c91fa lib/Math/BigInt/Lib.pm SHA256 f855e68d0f171debf8369ead8b36d004188f1c9069287a0d3c67a87f9afb1312 t/00sig.t SHA256 64c07f96b6a1d6adb075f40bf2dc496fd7951b653458bd9f826e4f76f8e5423d t/01load.t SHA256 a756e0bc9a221303e562d0f25969965962e6121605ee9bb0ee3cb54e69dd2222 t/Math/BigFloat/Subclass.pm @@ -64,7 +64,7 @@ SHA256 fdfc51b646339dbfb3f4401f7d0160345a3fda1d3673ea810518c5a0a0459aa3 t/calling-lib1.t SHA256 f09924e2d385af1bf78824aa01e17430242007c683a40a23412e9803e0ebb16b t/calling-lib2.t SHA256 f07e3567088a090d21831714a0ecb3a6f697eb470d3125690a89e6d515e845a7 t/config.t -SHA256 534475b05298b9b953c5cad40af2b5effc3293b220daf6344b110c55b1043514 t/downgrade.t +SHA256 fccf4089f62597790f48525203323e000a5432b4eb20e47170f76bbda2e87bb3 t/downgrade.t SHA256 324d86a08ef2dd6b9d900d0872ec8b5f91b0d4aa18b436ebdd479bd31525487b t/inf_nan.t SHA256 825f6fd2ca821c73e67c0a6fccd3c033f08024dd2dc518513da94c5f082416e2 t/isa.t SHA256 0ee0a589b916eba4ba34539dff1825d257d4334017016ed52872d843ce59415e t/mbf_ali.t @@ -192,6 +192,12 @@ SHA256 74c66b6e0fe17bc7c4671e8cc98fc1fa117c9e0c242e302074a94f93d186b170 xt/author/from_ieee754-mbf.t SHA256 50f5f7f8b95c3d2627e44b1c4332437a17226f8c082510da71af471f1dd05abd xt/author/from_oct-mbf.t SHA256 a181ff4fd5caf2ba3287599f5ee05a20c03f34cd4783ec6fa9fe2bbf3c23b20b xt/author/from_oct-mbi.t +SHA256 784c744c617e71ef6275025f384feca058238c2227e0b9e675970a92c03e80bd xt/author/interop-mbf-mbi.t +SHA256 96036b9354f303df36a0cd2878257dcb5493db1f255583a68880383c21eef637 xt/author/interop-mbi-mbf.t +SHA256 a1e557ca151050df148c3a4f279e7b447042faefee11ab65ed277f2c4fab598e xt/author/interop-mbil-mbf.t +SHA256 f0361aa3a5636f91316db80afa22330d0809e72b68d12a16db9d7b36f9d98d69 xt/author/interop-mbil-mbi.t +SHA256 524772391a95b0fbb8bb0ccd4c4cd879009ae9a41ca242d45ec604fdf5f7346d xt/author/interop-mbr-mbf.t +SHA256 c11b84a5aadf1be92b51c7c86fd5d65d20a8054767c625bbbd1dcb41cc5a2b49 xt/author/interop-mbr-mbi.t SHA256 1c54a3dab554bc054b4997457f7ee10b9f4560ba908c5fc36f77593ce3874646 xt/author/is_zero-mbf.t SHA256 2425d3ed127845ae1653eda4fe51955e9994326041c8894e8105e07f10ca0168 xt/author/is_zero-mbi.t SHA256 b0eca4959a7e5555737837211728b34450eb933205414eedbbfa5345abf17eea xt/author/lib-arithmetic-binary-_add.dat @@ -336,11 +342,11 @@ SHA256 7aa223732dec88d581e015ac171308b256a9d061ea3c832ad4f7048266226e97 xt/release/whitespaces.t -----BEGIN PGP SIGNATURE----- -iQEcBAEBAwAGBQJitgjwAAoJEGcmPl2fr1665rEIALIRlcLeQtpXLk/4xplLJ9OG -VB0simx9lrGLIpR+/iqJZ7LNw1PRygkg3aeRHjWCemBj0KFQoFTzUbm6NPCBxXxx -uC91SKHlmeDkKUQipmq2MVmfpMJ9CsQy36m+5ieFneFWPooAR14wXN/QeAtCSRvg -49aRBi20E82lXgkq46skACrmZfXsbX5BmSFTB/2Ayrsp3At2f+ww5VPmoYQJ5BFv -7ayAhBtEjQn4nNy0zhtgYY3xcTfrTbmr7156BnBgSB7H67bNJ+immU/v0hEwQ6ea -AS1ah3WfWtvQTKZ42bAPVoCawzcQSgyjKLgetcHDv0snUE0Pg4I3jZ/cb5spNzU= -=C2KK +iQEcBAEBAwAGBQJiwHR1AAoJEGcmPl2fr166mH4H/ikWsk/0rAUNMpTaVi56L6/V +mNraTQrKLhCSKcR0QWrz00zCE/bigNNaA2QAsCOGqRH4kb1KGVufHTqHLTaGa6iM +IPoG+P6+EJpgD+YLrGfEOZ/4b3T1Ylk6EXqAXZiqhCDXVFgb51NH7hyXZoV54kpQ +estrTp+EYvKmICBPO9k9zhu5NN/NnRKvDAv+bf3MOpepTrZO/M/gKLNm19TadLgh +lRFEzpzdff51RfzJP0uFROY9yThO75kLGp9OslskfXtb4gqJ+vN/ZTR8mVdDST5p +dlXntbESHDLdt6Sl50qHZF7W1VNIq3aOctN+rBwunwweScmPAbpbece7hAO6hkc= +=NSnp -----END PGP SIGNATURE----- diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Math-BigInt-1.999836/lib/Math/BigFloat.pm new/Math-BigInt-1.999837/lib/Math/BigFloat.pm --- old/Math-BigInt-1.999836/lib/Math/BigFloat.pm 2022-06-24 16:00:48.000000000 +0200 +++ new/Math-BigInt-1.999837/lib/Math/BigFloat.pm 2022-07-02 14:15:22.000000000 +0200 @@ -20,7 +20,7 @@ use Scalar::Util qw< blessed >; use Math::BigInt qw< >; -our $VERSION = '1.999836'; +our $VERSION = '1.999837'; $VERSION =~ tr/_//d; require Exporter; @@ -826,11 +826,13 @@ sub bzero { # create/assign '+0' - # Class::method() -> Class->method() - unless (@_ && (ref($_[0]) || $_[0] =~ /^[a-z]\w*(?:::[a-z]\w*)*$/i)) { + # Class::method(...) -> Class->method(...) + unless (@_ && (defined(blessed($_[0])) && $_[0] -> isa(__PACKAGE__) || + $_[0] =~ /^[a-z]\w*(?:::[a-z]\w*)*$/i)) + { #carp "Using ", (caller(0))[3], "() as a function is deprecated;", - # " use is as a method instead" if warnings::warnif("deprecated"); - unshift @_, __PACKAGE__ + # " use is as a method instead"; + unshift @_, __PACKAGE__; } my $self = shift; @@ -882,11 +884,13 @@ sub bone { # Create or assign '+1' (or -1 if given sign '-'). - # Class::method() -> Class->method() - unless (@_ && (ref($_[0]) || $_[0] =~ /^[a-z]\w*(?:::[a-z]\w*)*$/i)) { + # Class::method(...) -> Class->method(...) + unless (@_ && (defined(blessed($_[0])) && $_[0] -> isa(__PACKAGE__) || + $_[0] =~ /^[a-z]\w*(?:::[a-z]\w*)*$/i)) + { #carp "Using ", (caller(0))[3], "() as a function is deprecated;", - # " use is as a method instead" if warnings::warnif("deprecated"); - unshift @_, __PACKAGE__ + # " use is as a method instead"; + unshift @_, __PACKAGE__; } my $self = shift; @@ -946,11 +950,13 @@ sub binf { # create/assign a '+inf' or '-inf' - # Class::method() -> Class->method() - unless (@_ && (ref($_[0]) || $_[0] =~ /^[a-z]\w*(?:::[a-z]\w*)*$/i)) { + # Class::method(...) -> Class->method(...) + unless (@_ && (defined(blessed($_[0])) && $_[0] -> isa(__PACKAGE__) || + $_[0] =~ /^[a-z]\w*(?:::[a-z]\w*)*$/i)) + { #carp "Using ", (caller(0))[3], "() as a function is deprecated;", - # " use is as a method instead" if warnings::warnif("deprecated"); - unshift @_, __PACKAGE__ + # " use is as a method instead"; + unshift @_, __PACKAGE__; } my $self = shift; @@ -1017,11 +1023,13 @@ sub bnan { # create/assign a 'NaN' - # Class::method() -> Class->method() - unless (@_ && (ref($_[0]) || $_[0] =~ /^[a-z]\w*(?:::[a-z]\w*)*$/i)) { + # Class::method(...) -> Class->method(...) + unless (@_ && (defined(blessed($_[0])) && $_[0] -> isa(__PACKAGE__) || + $_[0] =~ /^[a-z]\w*(?:::[a-z]\w*)*$/i)) + { #carp "Using ", (caller(0))[3], "() as a function is deprecated;", - # " use is as a method instead" if warnings::warnif("deprecated"); - unshift @_, __PACKAGE__ + # " use is as a method instead"; + unshift @_, __PACKAGE__; } my $self = shift; @@ -1079,11 +1087,13 @@ sub bpi { - # Class::method() -> Class->method() - unless (@_ && (ref($_[0]) || $_[0] =~ /^[a-z]\w*(?:::[a-z]\w*)*$/i)) { + # Class::method(...) -> Class->method(...) + unless (@_ && (defined(blessed($_[0])) && $_[0] -> isa(__PACKAGE__) || + $_[0] =~ /^[a-z]\w*(?:::[a-z]\w*)*$/i)) + { #carp "Using ", (caller(0))[3], "() as a function is deprecated;", - # " use is as a method instead" if warnings::warnif("deprecated"); - unshift @_, __PACKAGE__ + # " use is as a method instead"; + unshift @_, __PACKAGE__; } # Called as Argument list @@ -4207,8 +4217,14 @@ # (BINT or num_str, BINT or num_str) return BINT # does not modify arguments, but returns new object - unshift @_, __PACKAGE__ - unless ref($_[0]) || $_[0] =~ /^[a-z]\w*(?:::[a-z]\w*)*$/i; + # Class::method(...) -> Class->method(...) + unless (@_ && (defined(blessed($_[0])) && $_[0] -> isa(__PACKAGE__) || + $_[0] =~ /^[a-z]\w*(?:::[a-z]\w*)*$/i)) + { + #carp "Using ", (caller(0))[3], "() as a function is deprecated;", + # " use is as a method instead"; + unshift @_, __PACKAGE__; + } my ($class, @args) = objectify(0, @_); @@ -4240,8 +4256,14 @@ # does not modify arguments, but returns new object # Least Common Multiple - unshift @_, __PACKAGE__ - unless ref($_[0]) || $_[0] =~ /^[a-z]\w*(?:::[a-z]\w*)*$/i; + # Class::method(...) -> Class->method(...) + unless (@_ && (defined(blessed($_[0])) && $_[0] -> isa(__PACKAGE__) || + $_[0] =~ /^[a-z]\w*(?:::[a-z]\w*)*$/i)) + { + #carp "Using ", (caller(0))[3], "() as a function is deprecated;", + # " use is as a method instead"; + unshift @_, __PACKAGE__; + } my ($class, @args) = objectify(0, @_); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Math-BigInt-1.999836/lib/Math/BigInt/Calc.pm new/Math-BigInt-1.999837/lib/Math/BigInt/Calc.pm --- old/Math-BigInt-1.999836/lib/Math/BigInt/Calc.pm 2022-06-24 16:00:48.000000000 +0200 +++ new/Math-BigInt-1.999837/lib/Math/BigInt/Calc.pm 2022-07-02 14:14:54.000000000 +0200 @@ -7,7 +7,7 @@ use Carp qw< carp croak >; use Math::BigInt::Lib; -our $VERSION = '1.999836'; +our $VERSION = '1.999837'; $VERSION =~ tr/_//d; our @ISA = ('Math::BigInt::Lib'); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Math-BigInt-1.999836/lib/Math/BigInt/Lib.pm new/Math-BigInt-1.999837/lib/Math/BigInt/Lib.pm --- old/Math-BigInt-1.999836/lib/Math/BigInt/Lib.pm 2022-06-24 16:00:48.000000000 +0200 +++ new/Math-BigInt-1.999837/lib/Math/BigInt/Lib.pm 2022-07-02 14:14:54.000000000 +0200 @@ -4,7 +4,7 @@ use strict; use warnings; -our $VERSION = '1.999836'; +our $VERSION = '1.999837'; $VERSION =~ tr/_//d; use Carp; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Math-BigInt-1.999836/lib/Math/BigInt.pm new/Math-BigInt-1.999837/lib/Math/BigInt.pm --- old/Math-BigInt-1.999836/lib/Math/BigInt.pm 2022-06-24 16:00:48.000000000 +0200 +++ new/Math-BigInt-1.999837/lib/Math/BigInt.pm 2022-07-02 14:15:22.000000000 +0200 @@ -23,7 +23,7 @@ use Carp qw< carp croak >; use Scalar::Util qw< blessed refaddr >; -our $VERSION = '1.999836'; +our $VERSION = '1.999837'; $VERSION =~ tr/_//d; require Exporter; @@ -961,11 +961,13 @@ sub bzero { # create/assign '+0' - # Class::method() -> Class->method() - unless (@_ && (ref($_[0]) || $_[0] =~ /^[a-z]\w*(?:::[a-z]\w*)*$/i)) { + # Class::method(...) -> Class->method(...) + unless (@_ && (defined(blessed($_[0])) && $_[0] -> isa(__PACKAGE__) || + $_[0] =~ /^[a-z]\w*(?:::[a-z]\w*)*$/i)) + { #carp "Using ", (caller(0))[3], "() as a function is deprecated;", - # " use is as a method instead" if warnings::warnif("deprecated"); - unshift @_, __PACKAGE__ + # " use is as a method instead"; + unshift @_, __PACKAGE__; } my $self = shift; @@ -1009,11 +1011,13 @@ sub bone { # Create or assign '+1' (or -1 if given sign '-'). - # Class::method() -> Class->method() - unless (@_ && (ref($_[0]) || $_[0] =~ /^[a-z]\w*(?:::[a-z]\w*)*$/i)) { + # Class::method(...) -> Class->method(...) + unless (@_ && (defined(blessed($_[0])) && $_[0] -> isa(__PACKAGE__) || + $_[0] =~ /^[a-z]\w*(?:::[a-z]\w*)*$/i)) + { #carp "Using ", (caller(0))[3], "() as a function is deprecated;", - # " use is as a method instead" if warnings::warnif("deprecated"); - unshift @_, __PACKAGE__ + # " use is as a method instead"; + unshift @_, __PACKAGE__; } my $self = shift; @@ -1064,11 +1068,13 @@ sub binf { # create/assign a '+inf' or '-inf' - # Class::method() -> Class->method() - unless (@_ && (ref($_[0]) || $_[0] =~ /^[a-z]\w*(?:::[a-z]\w*)*$/i)) { + # Class::method(...) -> Class->method(...) + unless (@_ && (defined(blessed($_[0])) && $_[0] -> isa(__PACKAGE__) || + $_[0] =~ /^[a-z]\w*(?:::[a-z]\w*)*$/i)) + { #carp "Using ", (caller(0))[3], "() as a function is deprecated;", - # " use is as a method instead" if warnings::warnif("deprecated"); - unshift @_, __PACKAGE__ + # " use is as a method instead"; + unshift @_, __PACKAGE__; } my $self = shift; @@ -1127,11 +1133,13 @@ sub bnan { # create/assign a 'NaN' - # Class::method() -> Class->method() - unless (@_ && (ref($_[0]) || $_[0] =~ /^[a-z]\w*(?:::[a-z]\w*)*$/i)) { + # Class::method(...) -> Class->method(...) + unless (@_ && (defined(blessed($_[0])) && $_[0] -> isa(__PACKAGE__) || + $_[0] =~ /^[a-z]\w*(?:::[a-z]\w*)*$/i)) + { #carp "Using ", (caller(0))[3], "() as a function is deprecated;", - # " use is as a method instead" if warnings::warnif("deprecated"); - unshift @_, __PACKAGE__ + # " use is as a method instead"; + unshift @_, __PACKAGE__; } my $self = shift; @@ -1179,11 +1187,13 @@ sub bpi { - # Class::method() -> Class->method() - unless (@_ && (ref($_[0]) || $_[0] =~ /^[a-z]\w*(?:::[a-z]\w*)*$/i)) { + # Class::method(...) -> Class->method(...) + unless (@_ && (defined(blessed($_[0])) && $_[0] -> isa(__PACKAGE__) || + $_[0] =~ /^[a-z]\w*(?:::[a-z]\w*)*$/i)) + { #carp "Using ", (caller(0))[3], "() as a function is deprecated;", - # " use is as a method instead" if warnings::warnif("deprecated"); - unshift @_, __PACKAGE__ + # " use is as a method instead"; + unshift @_, __PACKAGE__; } # Called as Argument list @@ -3812,6 +3822,15 @@ # does not modify arguments, but returns new object # GCD -- Euclid's algorithm, variant C (Knuth Vol 3, pg 341 ff) + # Class::method(...) -> Class->method(...) + unless (@_ && (defined(blessed($_[0])) && $_[0] -> isa(__PACKAGE__) || + $_[0] =~ /^[a-z]\w*(?:::[a-z]\w*)*$/i)) + { + #carp "Using ", (caller(0))[3], "() as a function is deprecated;", + # " use is as a method instead"; + unshift @_, __PACKAGE__; + } + my ($class, @args) = objectify(0, @_); # Upgrade? @@ -3848,6 +3867,15 @@ # does not modify arguments, but returns new object # Least Common Multiple + # Class::method(...) -> Class->method(...) + unless (@_ && (defined(blessed($_[0])) && $_[0] -> isa(__PACKAGE__) || + $_[0] =~ /^[a-z]\w*(?:::[a-z]\w*)*$/i)) + { + #carp "Using ", (caller(0))[3], "() as a function is deprecated;", + # " use is as a method instead"; + unshift @_, __PACKAGE__; + } + my ($class, @args) = objectify(0, @_); # Upgrade? diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Math-BigInt-1.999836/t/downgrade.t new/Math-BigInt-1.999837/t/downgrade.t --- old/Math-BigInt-1.999836/t/downgrade.t 2022-06-20 13:03:56.000000000 +0200 +++ new/Math-BigInt-1.999837/t/downgrade.t 2022-07-02 14:15:21.000000000 +0200 @@ -43,18 +43,21 @@ my ($x, $y, $z); subtest '$x = Math::BigFloat -> new(2);' => sub { + plan tests => 2; $x = Math::BigFloat -> new(2); # downgrades is(ref($x), 'Math::BigInt', '$x is downgraded to a Math::BigInt'); cmp_ok($x, "==", 2, 'value of $x'); }; subtest '$y = Math::BigFloat -> bpow("2", "0.5");' => sub { + plan tests => 2; $y = Math::BigFloat -> bpow("2", "0.5"); is(ref($y), 'Math::BigFloat', '$y is a Math::BigFloat'); cmp_ok($y, "==", "1.4142135623730950488", 'value of $y'); }; subtest '$z = $x -> bsqrt();' => sub { + plan tests => 2; $z = $x -> bsqrt(); is(ref($z), 'Math::BigFloat', '$y is a Math::BigFloat'); cmp_ok($z, "==", "1.4142135623730950488", 'value of $z'); @@ -63,6 +66,7 @@ # log_2(16) = 4 subtest '$x = Math::BigFloat -> new(16); $y = $x -> blog(2);' => sub { + plan tests => 4; $x = Math::BigFloat -> new(16); is(ref($x), 'Math::BigInt', '$x is downgraded to a Math::BigInt'); cmp_ok($x, "==", 16, 'value of $x'); @@ -74,6 +78,7 @@ # log_16(2) = 1/4 subtest '$x = Math::BigFloat -> new(2); $y = $x -> blog(16);' => sub { + plan tests => 4; $x = Math::BigFloat -> new(2); is(ref($x), 'Math::BigInt', '$x is downgraded to a Math::BigInt'); cmp_ok($x, "==", 2, 'value of $x'); @@ -618,24 +623,28 @@ $x = $zero -> copy() -> bround(); subtest '$x = $zero -> copy() -> bround();' => sub { + plan tests => 2; cmp_ok($x, '==', 0, 'bround(0)'); is(ref($x), 'Math::BigInt', 'bround(0) => Math::BigInt'); }; $x = $four -> copy() -> bround(); subtest '$x = $four -> copy() -> bround();' => sub { + plan tests => 2; cmp_ok($x, '==', 4, 'bround(4)'); is(ref($x), 'Math::BigInt', 'bround(4) => Math::BigInt'); }; $x = $inf -> copy() -> bround(); subtest '$x = $inf -> copy() -> bround();' => sub { + plan tests => 2; cmp_ok($x, '==', 'inf', 'bround(Inf)'); is(ref($x), 'Math::BigInt', 'bround(Inf) => Math::BigInt'); }; $x = $nan -> copy() -> bround(); subtest '$x = $nan -> copy() -> bround();' => sub { + plan tests => 2; is($x, 'NaN', 'bround(NaN)'); is(ref($x), 'Math::BigInt', 'bround(NaN) => Math::BigInt'); }; @@ -646,24 +655,28 @@ $x = $zero -> copy() -> bfround(); subtest '$x = $zero -> copy() -> bfround();' => sub { + plan tests => 2; cmp_ok($x, '==', 0, 'bfround(0)'); is(ref($x), 'Math::BigInt', 'bfround(0) => Math::BigInt'); }; $x = $four -> copy() -> bfround(); subtest '$x = $four -> copy() -> bfround();' => sub { + plan tests => 2; cmp_ok($x, '==', 4, 'bfround(4)'); is(ref($x), 'Math::BigInt', 'bfround(4) => Math::BigInt'); }; $x = $inf -> copy() -> bfround(); subtest '$x = $inf -> copy() -> bfround();' => sub { + plan tests => 2; cmp_ok($x, '==', 'inf', 'bfround(Inf)'); is(ref($x), 'Math::BigInt', 'bfround(Inf) => Math::BigInt'); }; $x = $nan -> copy() -> bfround(); subtest '$x = $nan -> copy() -> bfround();' => sub { + plan tests => 2; is($x, 'NaN', 'bfround(NaN)'); is(ref($x), 'Math::BigInt', 'bfround(NaN) => Math::BigInt'); }; @@ -672,18 +685,21 @@ $x = $half -> copy() -> bfloor(); subtest '$x = $half -> copy() -> bfloor();' => sub { + plan tests => 2; cmp_ok($x, '==', 0, 'bfloor(0)'); is(ref($x), 'Math::BigInt', 'bfloor(0) => Math::BigInt'); }; $x = $inf -> copy() -> bfloor(); subtest '$x = $inf -> copy() -> bfloor();' => sub { + plan tests => 2; cmp_ok($x, '==', 'Inf', 'bfloor(Inf)'); is(ref($x), 'Math::BigInt', 'bfloor(Inf) => Math::BigInt'); }; $x = $nan -> copy() -> bfloor(); subtest '$x = $nan -> copy() -> bfloor();' => sub { + plan tests => 2; is($x, 'NaN', 'bfloor(NaN)'); is(ref($x), 'Math::BigInt', 'bfloor(NaN) => Math::BigInt'); }; @@ -692,18 +708,21 @@ $x = $half -> copy() -> bceil(); subtest '$x = $half -> copy() -> bceil();' => sub { + plan tests => 2; cmp_ok($x, '==', 1, 'bceil(0)'); is(ref($x), 'Math::BigInt', 'bceil(0) => Math::BigInt'); }; $x = $inf -> copy() -> bceil(); subtest '$x = $inf -> copy() -> bceil();' => sub { + plan tests => 2; cmp_ok($x, '==', 'Inf', 'bceil(Inf)'); is(ref($x), 'Math::BigInt', 'bceil(Inf) => Math::BigInt'); }; $x = $nan -> copy() -> bceil(); subtest '$x = $nan -> copy() -> bceil();' => sub { + plan tests => 2; is($x, 'NaN', 'bceil(NaN)'); is(ref($x), 'Math::BigInt', 'bceil(NaN) => Math::BigInt'); }; @@ -712,18 +731,21 @@ $x = $half -> copy() -> bint(); subtest '$x = $half -> copy() -> bint();' => sub { + plan tests => 2; cmp_ok($x, '==', 0, 'bint(0)'); is(ref($x), 'Math::BigInt', 'bint(0) => Math::BigInt'); }; $x = $inf -> copy() -> bint(); subtest '$x = $inf -> copy() -> bint();' => sub { + plan tests => 2; cmp_ok($x, '==', 'Inf', 'bint(Inf)'); is(ref($x), 'Math::BigInt', 'bint(Inf) => Math::BigInt'); }; $x = $nan -> copy() -> bint(); subtest '$x = $nan -> copy() -> bint();' => sub { + plan tests => 2; is($x, 'NaN', 'bint(NaN)'); is(ref($x), 'Math::BigInt', 'bint(NaN) => Math::BigInt'); }; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Math-BigInt-1.999836/xt/author/interop-mbf-mbi.t new/Math-BigInt-1.999837/xt/author/interop-mbf-mbi.t --- old/Math-BigInt-1.999836/xt/author/interop-mbf-mbi.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Math-BigInt-1.999837/xt/author/interop-mbf-mbi.t 2022-07-02 14:15:22.000000000 +0200 @@ -0,0 +1,22 @@ +# -*- mode: perl; -*- + +use strict; +use warnings; + +use Test::More; + +use Math::BigInt; +use Math::BigFloat; + +plan tests => 5; + +my $x = Math::BigFloat -> new("12"); +is(ref($x), "Math::BigFloat", '$x is a Math::BigFloat'); + +my $gcd = Math::BigInt::bgcd($x, 18); +is(ref($gcd), "Math::BigInt", '$gcd is a Math::BigInt'); +is($gcd, "6", '$gcd is 6'); + +my $lcm = Math::BigInt::blcm($x, 18); +is(ref($lcm), "Math::BigInt", '$lcm is a Math::BigInt'); +is($lcm, "36", '$gcd is 36'); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Math-BigInt-1.999836/xt/author/interop-mbi-mbf.t new/Math-BigInt-1.999837/xt/author/interop-mbi-mbf.t --- old/Math-BigInt-1.999836/xt/author/interop-mbi-mbf.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Math-BigInt-1.999837/xt/author/interop-mbi-mbf.t 2022-07-02 14:15:22.000000000 +0200 @@ -0,0 +1,22 @@ +# -*- mode: perl; -*- + +use strict; +use warnings; + +use Test::More; + +use Math::BigInt; +use Math::BigFloat; + +plan tests => 5; + +my $x = Math::BigInt -> new("12"); +is(ref($x), "Math::BigInt", '$x is a Math::BigInt'); + +my $gcd = Math::BigFloat::bgcd($x, 18); +is(ref($gcd), "Math::BigFloat", '$gcd is a Math::BigFloat'); +is($gcd, "6", '$gcd is 6'); + +my $lcm = Math::BigFloat::blcm($x, 18); +is(ref($lcm), "Math::BigFloat", '$lcm is a Math::BigFloat'); +is($lcm, "36", '$gcd is 36'); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Math-BigInt-1.999836/xt/author/interop-mbil-mbf.t new/Math-BigInt-1.999837/xt/author/interop-mbil-mbf.t --- old/Math-BigInt-1.999836/xt/author/interop-mbil-mbf.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Math-BigInt-1.999837/xt/author/interop-mbil-mbf.t 2022-07-02 14:15:22.000000000 +0200 @@ -0,0 +1,25 @@ +# -*- mode: perl; -*- + +use strict; +use warnings; + +use Test::More; + +use Math::BigFloat; + +eval { require Math::BigInt::Lite; }; +plan skip_all => "Math::BigInt::Lite required for thie test" + if $@; + +plan tests => 5; + +my $x = Math::BigInt::Lite -> new("12"); +is(ref($x), "Math::BigInt::Lite", '$x is a Math::BigInt::Lite'); + +my $gcd = Math::BigFloat::bgcd($x, 18); +is(ref($gcd), "Math::BigFloat", '$gcd is a Math::BigFloat'); +is($gcd, "6", '$gcd is 6'); + +my $lcm = Math::BigFloat::blcm($x, 18); +is(ref($lcm), "Math::BigFloat", '$lcm is a Math::BigFloat'); +is($lcm, "36", '$gcd is 36'); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Math-BigInt-1.999836/xt/author/interop-mbil-mbi.t new/Math-BigInt-1.999837/xt/author/interop-mbil-mbi.t --- old/Math-BigInt-1.999836/xt/author/interop-mbil-mbi.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Math-BigInt-1.999837/xt/author/interop-mbil-mbi.t 2022-07-02 14:15:22.000000000 +0200 @@ -0,0 +1,25 @@ +# -*- mode: perl; -*- + +use strict; +use warnings; + +use Test::More; + +use Math::BigInt; + +eval { require Math::BigInt::Lite; }; +plan skip_all => "Math::BigInt::Lite required for thie test" + if $@; + +plan tests => 5; + +my $x = Math::BigInt::Lite -> new("12"); +is(ref($x), "Math::BigInt::Lite", '$x is a Math::BigInt::Lite'); + +my $gcd = Math::BigInt::bgcd($x, 18); +is(ref($gcd), "Math::BigInt", '$gcd is a Math::BigInt'); +is($gcd, "6", '$gcd is 6'); + +my $lcm = Math::BigInt::blcm($x, 18); +is(ref($lcm), "Math::BigInt", '$lcm is a Math::BigInt'); +is($lcm, "36", '$gcd is 36'); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Math-BigInt-1.999836/xt/author/interop-mbr-mbf.t new/Math-BigInt-1.999837/xt/author/interop-mbr-mbf.t --- old/Math-BigInt-1.999836/xt/author/interop-mbr-mbf.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Math-BigInt-1.999837/xt/author/interop-mbr-mbf.t 2022-07-02 14:15:22.000000000 +0200 @@ -0,0 +1,25 @@ +# -*- mode: perl; -*- + +use strict; +use warnings; + +use Test::More; + +use Math::BigFloat; + +eval { require Math::BigRat; }; +plan skip_all => "Math::BigRat required for thie test" + if $@; + +plan tests => 5; + +my $x = Math::BigRat -> new("12"); +is(ref($x), "Math::BigRat", '$x is a Math::BigRat'); + +my $gcd = Math::BigFloat::bgcd($x, 18); +is(ref($gcd), "Math::BigFloat", '$gcd is a Math::BigFloat'); +is($gcd, "6", '$gcd is 6'); + +my $lcm = Math::BigFloat::blcm($x, 18); +is(ref($lcm), "Math::BigFloat", '$lcm is a Math::BigFloat'); +is($lcm, "36", '$gcd is 36'); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Math-BigInt-1.999836/xt/author/interop-mbr-mbi.t new/Math-BigInt-1.999837/xt/author/interop-mbr-mbi.t --- old/Math-BigInt-1.999836/xt/author/interop-mbr-mbi.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Math-BigInt-1.999837/xt/author/interop-mbr-mbi.t 2022-07-02 14:15:22.000000000 +0200 @@ -0,0 +1,25 @@ +# -*- mode: perl; -*- + +use strict; +use warnings; + +use Test::More; + +use Math::BigInt; + +eval { require Math::BigRat; }; +plan skip_all => "Math::BigRat required for thie test" + if $@; + +plan tests => 5; + +my $x = Math::BigRat -> new("12"); +is(ref($x), "Math::BigRat", '$x is a Math::BigRat'); + +my $gcd = Math::BigInt::bgcd($x, 18); +is(ref($gcd), "Math::BigInt", '$gcd is a Math::BigInt'); +is($gcd, "6", '$gcd is 6'); + +my $lcm = Math::BigInt::blcm($x, 18); +is(ref($lcm), "Math::BigInt", '$lcm is a Math::BigInt'); +is($lcm, "36", '$gcd is 36');