Math-BigRat: Update to 0.2612

with keeping our test fixes, and improving the still
skipped bigfltpm.inc.
See https://github.com/rurban/Math-BigRat/commits/cperl-rebased

Author: rurban

Porting/Maintainers.pl

@@ -981,7 +981,7 @@ package Maintainers;
     },
 
     'Math::BigRat' => {
-        'DISTRIBUTION' => 'PJACKLAM/Math-BigRat-0.2611.tar.gz',
+        'DISTRIBUTION' => 'PJACKLAM/Math-BigRat-0.2612.tar.gz',
         'FILES'        => q[cpan/Math-BigRat],
         'EXCLUDED'     => [
             qr{^inc/},

cpan/Math-BigRat/lib/Math/BigRat.pm

@@ -18,9 +18,9 @@ use warnings;
 
 use Carp ();
 
-use Math::BigFloat '1.999718';
+use Math::BigFloat 1.999718;
 
-our $VERSION = '0.2611';
+our $VERSION = '0.2612';
 
 our @ISA = qw(Math::BigFloat);
 
@@ -1348,15 +1348,19 @@ sub blog {
     # value is used as the base, otherwise the base is assumed to be Euler's
     # constant.
 
+    my ($class, $x, $base, @r);
+
     # Don't objectify the base, since an undefined base, as in $x->blog() or
     # $x->blog(undef) signals that the base is Euler's number.
 
-    # set up parameters
-    my ($class, $x, $base, @r) = (ref($_[0]), @_);
-
-    # objectify is costly, so avoid it
-    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
-        ($class, $x, $base, @r) = objectify(1, @_);
+    if (!ref($_[0]) && $_[0] =~ /^[A-Za-z]|::/) {
+        # E.g., Math::BigFloat->blog(256, 2)
+        ($class, $x, $base, @r) =
+          defined $_[2] ? objectify(2, @_) : objectify(1, @_);
+    } else {
+        # E.g., Math::BigFloat::blog(256, 2) or $x->blog(2)
+        ($class, $x, $base, @r) =
+          defined $_[1] ? objectify(2, @_) : objectify(1, @_);
     }
 
     return $x if $x->modify('blog');
@@ -1417,7 +1421,7 @@ sub bexp {
 
     # objectify is costly, so avoid it
     if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
-        ($class, $x, $y, @r) = objectify(2, @_);
+        ($class, $x, $y, @r) = objectify(1, @_);
     }
 
     return $x->binf(@r)  if $x->{sign} eq '+inf';

cpan/Math-BigRat/t/bigfltpm.inc

@@ -2,10 +2,11 @@
 
 use strict;
 use warnings;
+use vars qw($class $CL);
 
 ok ($class->config()->{lib},$CL);
 
-my $z;
+our ($x, $y, $z, $f, $setup, $try, $ans, $ans1, @args);
 
 while (<DATA>)
   {
@@ -177,7 +178,8 @@ while (<DATA>)
 
 # check whether $class->new( Math::BigInt->new()) destroys it
 # ($y == 12 in this case)
-$x = Math::BigInt->new(1200); $y = $class->new($x);
+$x = Math::BigInt->new(1200); 
+$y = $class->new($x);
 ok ($y,1200); ok ($x,1200);
 
 ###############################################################################
@@ -318,13 +320,13 @@ $x = $class->new('-3.14'); $x %= $x; ok ($x, '0');
 #Use of uninitialized value in numeric le (<=) at BigFloat.pm line 1851.
 
 $x = $class->new(0); $y = $class->new('0.1');
-ok ($x ** $y, 0, 'no warnings and zero result');
+is($x ** $y, 0, 'no warnings and zero result');
 
 #perl -MMath::BigFloat -lwe 'print Math::BigFloat->new(".222222222222222222222222222222222222222222")->bceil()'
 #Use of uninitialized value in numeric le (<=) at BigFloat.pm line 1851.
 
 $x = $class->new(".222222222222222222222222222222222222222222");
-ok ($x->bceil(), 1, 'no warnings and one as result');
+is($x->bceil(), 1, 'no warnings and one as result');
 
 ###############################################################################
 # test **=, <<=, >>=
@@ -335,7 +337,7 @@ ok ($x,"20988936657440586486151264256610222593863921");
 ok ($x->length(),length "20988936657440586486151264256610222593863921");
 
 $x = $class->new('2');
-my $y = $class->new('18');
+$y = $class->new('18');
 ok ($x <<= $y, 2 << 18);
 ok ($x, 2 << 18);
 ok ($x >>= $y, 2);

cpan/Math-BigRat/t/bigfltrt.t

@@ -9,9 +9,9 @@ use Test::More tests => 1;
 
 use Math::BigRat::Test lib => 'Calc';	# test via this Subclass
 
-our ($CLASS, $CALC);
-$CLASS = "Math::BigRat::Test";
-$CALC  = "Math::BigInt::Calc";
+our ($class, $CL);
+$class = "Math::BigRat::Test";
+$CL    = "Math::BigInt::Calc";
 
 pass();
 

dist/Module-CoreList/lib/Module/CoreList.pm

@@ -14733,6 +14733,7 @@ our %delta = (
             'Math::BigInt::Calc'    => '1.999811',
             'Math::BigInt::CalcEmu' => '1.999811',
             'Math::BigInt::Lib'     => '1.999811',
+            'Math::BigRat'          => '0.2612',
             'Compress::Raw::Bzip2'  => '2.074',
             'Compress::Raw::Zlib'   => '2.074',
             'Config'                => '6.23',

pod/perlcdelta.pod

@@ -1342,10 +1342,12 @@ aliases like *Math::BigInt::FastCalc::_xxx = \&Math::BigInt::Calc::_xxx.
 
 Use OO-calls rather than function calls. (i.e slower but overridable)
 
-=item Math-BigRat 0.2611
+=item Math-BigRat 0.2612
 
 Updated from CPAN: No functional changes,
 and the few actual changes in the test lib were for the worse.
+The F<bigfltpm.inc> tests are still broken and skipped, however
+I improved it.
 
 =item Module-Load-Conditional  0.68
 

t/porting/customized.dat

@@ -84,7 +84,7 @@ Math::BigInt cpan/Math-BigInt/t/sub_mif.t e87738bd15116665c38d9f41b310cfe7fbf6da
 Math::BigInt cpan/Math-BigInt/t/upgrade.t 7c15cac7f321ca396648ec45da6389a1283e1546
 Math::BigInt cpan/Math-BigInt/t/upgradef.t 06610e9883ce805bcd6543ab959a9826f598eb40
 Math::BigInt cpan/Math-BigInt/t/with_sub.t c040328e223df6f56250f5d67dcb2c9a2f23c110
-Module::CoreList dist/Module-CoreList/lib/Module/CoreList.pm ce12052106c5c00694bc629245de7c5b6399bfd4
+Module::CoreList dist/Module-CoreList/lib/Module/CoreList.pm 7ee910eef0ea12f2d2ae956249baba6e3e191509
 Module::CoreList dist/Module-CoreList/lib/Module/CoreList/Utils.pm 67d48d6d19234473699266139fbe0e7f582727ac
 Module::Metadata cpan/Module-Metadata/t/lib/GeneratePackage.pm 502ffbe2609947430e6aa1a3df8064b3fef3e086
 Net::Domain cpan/libnet/lib/Net/Cmd.pm 70a007c38833667ad47ea8059c37c1b7d1c77b6c