Math-BigRat: Update to 0.2613

Fix problem with second operand being changed in multiplication (CPAN
RT #121139).

And keep our cperl test fixes.
See github.com:rurban/Math-BigRat branch cperl

Author: rurban

MANIFEST

@@ -1756,6 +1756,7 @@ cpan/Math-BigRat/t/bitwise.t		Math::BigRat test
 cpan/Math-BigRat/t/hang.t		Math::BigRat test for bug #34584 - hang in exp()
 cpan/Math-BigRat/t/Math/BigRat/Test.pm	Math::BigRat test helper
 cpan/Math-BigRat/t/requirer.t		see if require works properly
+cpan/Math-BigRat/t/rt121139.t		Math::BigRat test for bug rt #121139
 cpan/Math-BigRat/t/trap.t		see if trap_nan and trap_inf work
 cpan/Math-Complex/lib/Math/Complex.pm	A Complex package
 cpan/Math-Complex/lib/Math/Trig.pm	A simple interface to complex trigonometry

Porting/Maintainers.pl

@@ -1011,7 +1011,7 @@ package Maintainers;
     },
 
     'Math::BigRat' => {
-        'DISTRIBUTION' => 'PJACKLAM/Math-BigRat-0.2612.tar.gz',
+        'DISTRIBUTION' => 'PJACKLAM/Math-BigRat-0.2613.tar.gz',
         'FILES'        => q[cpan/Math-BigRat],
         'EXCLUDED'     => [
             qr{^inc/},
@@ -1022,6 +1022,12 @@ package Maintainers;
                 t/03podcov.t
                 ),
         ],
+        'CUSTOMIZED'   => [
+            qw( t/bigfltpm.inc
+                t/bigfltrt.t
+                t/bigratpm.t
+              ),
+          ],
     },
 
     'Math::Complex' => {

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

@@ -20,7 +20,7 @@ use Carp ();
 
 use Math::BigFloat 1.999718;
 
-our $VERSION = '0.2612';
+our $VERSION = '0.2613';
 
 our @ISA = qw(Math::BigFloat);
 
@@ -887,9 +887,11 @@ sub bmul {
     my $gcd_sq = $LIB -> _gcd($LIB -> _copy($y->{_n}), $x->{_d});
 
     $x->{_n} = $LIB -> _mul(scalar $LIB -> _div($x->{_n}, $gcd_pr),
-                            scalar $LIB -> _div($y->{_n}, $gcd_sq));
+                            scalar $LIB -> _div($LIB -> _copy($y->{_n}),
+                                                $gcd_sq));
     $x->{_d} = $LIB -> _mul(scalar $LIB -> _div($x->{_d}, $gcd_sq),
-                            scalar $LIB -> _div($y->{_d}, $gcd_pr));
+                            scalar $LIB -> _div($LIB -> _copy($y->{_d}),
+                                                $gcd_pr));
 
     # compute new sign
     $x->{sign} = $x->{sign} eq $y->{sign} ? '+' : '-';

cpan/Math-BigRat/t/rt121139.t

@@ -0,0 +1,16 @@
+#!perl
+
+# check for cpan rt #121139
+
+use strict;
+use warnings;
+use Test::More tests => 2;
+use Math::BigRat;
+
+my $a = Math::BigRat->new('3/2');
+my $x = Math::BigRat->new('2/3');
+is("$a", "3/2");
+
+my $y = $a;
+$y = $x * $y;
+is("$a", "3/2");

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

@@ -14975,6 +14975,8 @@ our %delta = (
             'JSON::PP'              => '2.94_01',
             'JSON::PP::Boolean'     => '2.94_01',
             'Locale::Codes'         => '3.53',
+            'Math::BigRat'          => '0.2613',
+            'Memoize'               => '1.03',
             'Net::Ping'             => '2.61',
             'Search::Dict'          => '1.07_01',
             'SelectSaver'           => '1.02_01',
@@ -15149,6 +15151,7 @@ our %delta = (
             'JSON::PP::Boolean'     => '2.94_01',
             'Locale::Codes'         => '3.53',
             'Opcode'                => '1.39_02c',
+            'Math::BigRat'          => '0.2613',
             'Metamodel'             => '',
             'Mu'                    => '0.01c',
             'Net::Ping'             => '2.61',

pod/perlcdelta.pod

@@ -401,6 +401,11 @@ Various, see L<https://metacpan.org/changes/distribution/JSON-PP>
 
 Fixed the default error condition in legacy modules.
 
+=item L<Math::BigRat> 0.2613
+
+Fix problem with second operand being changed in multiplication (CPAN
+RT #121139).
+
 =item L<Memoize> 1.03
 
 Skip flapping, timer-sensitive t/expmod_t.t tests

t/porting/customized.dat

@@ -100,8 +100,11 @@ 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
+Math::BigRat cpan/Math-BigRat/t/bigfltpm.inc 8000c7057453138ff48cf4cba61f0f4a1db2b59a
+Math::BigRat cpan/Math-BigRat/t/bigfltrt.t 5508d55216c52caf26aa2e6478691c50b7856e7d
+Math::BigRat cpan/Math-BigRat/t/bigratpm.t cfd770aabeaf6b742fd942143e816db42db04fba
 Memoize cpan/Memoize/t/expmod_t.t 9386100cd9c95a0e8a4e001bba3aa52eec114d21
-Module::CoreList dist/Module-CoreList/lib/Module/CoreList.pm 1b7766aaebc990aad7ade7d4cd33dff1fd0749ee
+Module::CoreList dist/Module-CoreList/lib/Module/CoreList.pm fc70f5045950d5b51cc5426d5e9e4f79c794e437
 Module::CoreList dist/Module-CoreList/lib/Module/CoreList/Utils.pm 7ff05ce5f0b967d229b90870de806ce3fea82b22
 Module::Metadata cpan/Module-Metadata/t/lib/GeneratePackage.pm 502ffbe2609947430e6aa1a3df8064b3fef3e086
 Net::Domain cpan/libnet/lib/Net/Cmd.pm 70a007c38833667ad47ea8059c37c1b7d1c77b6c