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

Reply via email to