cpan/Math-BigInt - Update to version 1.999842

1.999842 2023-09-27

 * Fix a bug causing Math::BigInt and Math::BigFloat to be caught in an endless
   recursion. The bug was introduced when trying to fix
   pjacklam/p5-Math-BigInt#8

 * Allow div_scale to be 0. It is not documented what div_scale <= 0 means, but
   there are modules that set div_scale to 0 (e.g., Astro::Units) and fail
   their tests if this is not supported.

Author: Peter John Acklam

Porting/Maintainers.pl

@@ -757,7 +757,8 @@ package Maintainers;
     },
 
     'Math::BigInt' => {
-        'DISTRIBUTION' => 'PJACKLAM/Math-BigInt-1.999841.tar.gz',
+        'DISTRIBUTION' => 'PJACKLAM/Math-BigInt-1.999842.tar.gz',
+        'SYNCINFO'     => 'jkeenan on Thu Sep 28 07:49:05 2023',
         'SYNCINFO'     => 'jkeenan on Sun Sep 24 08:09:46 2023',
         'FILES'        => q[cpan/Math-BigInt],
         'EXCLUDED'     => [

cpan/Math-BigInt/lib/Math/BigFloat.pm

@@ -20,7 +20,7 @@ use Carp          qw< carp croak >;
 use Scalar::Util  qw< blessed >;
 use Math::BigInt  qw< >;
 
-our $VERSION = '1.999841';
+our $VERSION = '1.999842';
 $VERSION =~ tr/_//d;
 
 require Exporter;

cpan/Math-BigInt/lib/Math/BigInt.pm

@@ -23,7 +23,7 @@ use warnings;
 use Carp          qw< carp croak >;
 use Scalar::Util  qw< blessed refaddr >;
 
-our $VERSION = '1.999841';
+our $VERSION = '1.999842';
 $VERSION =~ tr/_//d;
 
 require Exporter;
@@ -325,7 +325,9 @@ sub div_scale {
     if (@_) {                           # setter
         my $ds = shift;
         croak("The value for 'div_scale' must be defined") unless defined $ds;
-        croak("The value for 'div_scale' must be positive") unless $ds > 0;
+        # It is not documented what div_scale <= 0 means, but Astro::Units sets
+        # div_scale to 0 and fails its tests if this is not supported.
+        #croak("The value for 'div_scale' must be positive") unless $ds > 0;
         $ds = $ds -> numify() if defined(blessed($ds));
         no strict 'refs';
         ${"${class}::div_scale"} = $ds;
@@ -1601,7 +1603,7 @@ sub babs {
     return $x if $x->modify('babs');
 
     return $upgrade -> babs($x, @r)
-      if defined($upgrade) && !$x->isa(__PACKAGE__);
+      if defined($upgrade) && !$x->isa(__PACKAGE__) && !$x -> isa($upgrade);
 
     $x->{sign} =~ s/^-/+/;
 
@@ -1615,7 +1617,7 @@ sub bsgn {
     return $x if $x->modify('bsgn');
 
     return $upgrade -> bsgn($x, @r)
-      if defined($upgrade) && !$x->isa(__PACKAGE__);
+      if defined($upgrade) && !$x->isa(__PACKAGE__) && !$x -> isa($upgrade);
 
     return $x -> bone("+", @r) if $x -> is_pos();
     return $x -> bone("-", @r) if $x -> is_neg();

cpan/Math-BigInt/lib/Math/BigInt/Calc.pm

@@ -7,7 +7,7 @@ use warnings;
 use Carp qw< carp croak >;
 use Math::BigInt::Lib;
 
-our $VERSION = '1.999841';
+our $VERSION = '1.999842';
 $VERSION =~ tr/_//d;
 
 our @ISA = ('Math::BigInt::Lib');

cpan/Math-BigInt/lib/Math/BigInt/Lib.pm

@@ -4,7 +4,7 @@ use 5.006001;
 use strict;
 use warnings;
 
-our $VERSION = '1.999841';
+our $VERSION = '1.999842';
 $VERSION =~ tr/_//d;
 
 use Carp;