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 <[email protected]>
+
+- 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');
