Update upstream source from tag 'upstream/1.6013'

Update to upstream version '1.6013'
with Debian dir 8c971158e5dd2a1fad4f3caa95fbe48b319fd4bc

11 files changed, 76 insertions, 64 deletions

diff --git a/CHANGES b/CHANGES
index b21722f..f4b0139 100644
--- a/CHANGES
+++ b/CHANGES
@@ -1,3 +1,9 @@
+1.6013 2023-09-20
+
+ * Sync test files with Math-BigInt.
+
+ * Remove obsolete link to cpanratings.org.
+
 1.6012 2023-04-03
 
  * Sync test files with Math-BigInt.
diff --git a/MANIFEST.SKIP b/MANIFEST.SKIP
index 95a39d7..9ba0577 100644
--- a/MANIFEST.SKIP
+++ b/MANIFEST.SKIP
@@ -1,4 +1,4 @@
-# Start included MANIFEST.SKIP template from ExtUtils::Manifest 1.73
+# Start included MANIFEST.SKIP template from ExtUtils::Manifest 1.75
 
 # Avoid version control files.
 \bRCS\b
@@ -11,6 +11,8 @@
 \B\.gitignore\b
 \b_darcs\b
 \B\.cvsignore$
+\B\.bzr\b
+\B\.bzrignore$
 
 # Avoid VMS specific MakeMaker generated files
 \bDescrip.MMS$
@@ -48,6 +50,7 @@
 \.#
 \.rej$
 \..*\.sw.?$
+\.~\d+~$
 
 # Avoid OS-specific files/dirs
 # Mac OSX metadata
@@ -76,12 +79,12 @@
 # Avoid AppVeyor file
 ^\.?appveyor.yml
 
-# End included /usr/local/share/perl5/site_perl/5.32/ExtUtils/MANIFEST.SKIP
+# End included /usr/local/lib/perl5/ExtUtils/MANIFEST.SKIP
 
 # Avoid more git stuff.
 \B\.gitattributes\b
 
-# Avoid patch files.
+# Avoid patch-related files.
 \.patch$
 \.diff$
 
@@ -107,6 +110,9 @@
 \.lrz$
 \.lzh$
 
+# Avoid development stuff.
+^dev(el)?$
+
 # Avoid distribution-specific stuff.
 ^Math-BigInt-GMP-[0-9]
 
diff --git a/META.json b/META.json
index 7bcb7c1..537ed6f 100644
--- a/META.json
+++ b/META.json
@@ -31,7 +31,7 @@
       "runtime" : {
          "requires" : {
             "Carp" : "1.22",
-            "Math::BigInt" : "1.999838",
+            "Math::BigInt" : "1.99984",
             "XSLoader" : "0.02",
             "perl" : "5.008"
          }
@@ -50,6 +50,6 @@
          "web" : "https://github.com/pjacklam/p5-Math-BigInt-GMP"
       }
    },
-   "version" : "1.6012",
+   "version" : "1.6013",
    "x_serialization_backend" : "JSON::PP version 4.16"
 }
diff --git a/META.yml b/META.yml
index 677a140..361ecbf 100644
--- a/META.yml
+++ b/META.yml
@@ -19,10 +19,10 @@ no_index:
     - inc
 requires:
   Carp: '1.22'
-  Math::BigInt: '1.999838'
+  Math::BigInt: '1.99984'
   XSLoader: '0.02'
   perl: '5.008'
 resources:
   repository: https://github.com/pjacklam/p5-Math-BigInt-GMP.git
-version: '1.6012'
+version: '1.6013'
 x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff --git a/Makefile.PL b/Makefile.PL
index 011167e..7a897fe 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -36,7 +36,7 @@ WriteMakefile
    # A hash of modules that are needed to run the module.
 
    'PREREQ_PM'          => {
-                            'Math::BigInt'        => 1.999838,
+                            'Math::BigInt'        => 1.999840,
                             'Carp'                => 1.22,
                             'XSLoader'            => 0.02,
                            },
diff --git a/README.md b/README.md
index 7c7c6a7..9ba42d9 100644
--- a/README.md
+++ b/README.md
@@ -67,10 +67,6 @@ You can also look for information at:
 
     [http://matrix.cpantesters.org/?dist=Math-BigInt-GMP](http://matrix.cpantesters.org/?dist=Math-BigInt-GMP)
 
-- CPAN Ratings
-
-    [https://cpanratings.perl.org/dist/Math-BigInt-GMP](https://cpanratings.perl.org/dist/Math-BigInt-GMP)
-
 # LICENSE
 
 This program is free software; you may redistribute it and/or modify it under
diff --git a/SIGNATURE b/SIGNATURE
index 7b6012d..e173396 100644
--- a/SIGNATURE
+++ b/SIGNATURE
@@ -15,30 +15,30 @@ not run its Makefile.PL or Build.PL.
 Hash: RIPEMD160
 
 SHA256 b173bc6027df00777c94cc36850ef64f7b2affeb8ec85593fee91eff5ce4a899 BUGS
-SHA256 acaa3263863eb170a3ca4d4054ce5d27b503be1832823af528e8e2d244649a0c CHANGES
+SHA256 e3e0dfd22be08255925d8ba5a785837bc9e0f3467282f5f4ea17de3cd78d5298 CHANGES
 SHA256 15123cad594aefe6f9f78a0b637ba685991f36865f561686d57c61b13eca1ae0 CREDITS
 SHA256 7ddda45c10ba55b6713c512b418d706278b1e260e94008d599b2709cbfa166d0 GMP.xs
 SHA256 b857edab549ac6893e2df5e1ec768ee46b62bcf1607a55e876f4d23f079eacce LICENSE
 SHA256 283a887525057e82bc986996c36c5aef1919f12e46fbb14f192295b6800fafdc MANIFEST
-SHA256 cea319b25473049674f5cc8c9bfa5b90f0b78383d4af657b8cf4bdd9ea4dd40c MANIFEST.SKIP
-SHA256 e24a8dfeef64344b4f107a5ab8d7cea92438eb0642ce24f75bc25b29a7126450 META.json
-SHA256 86482d141fe4345c2c80a00453b6c382382a6c49a023ebc00032528d306d5f32 META.yml
-SHA256 918743db3c7dfcce0384bc351dbd705f0dc831bf7054196ea0202f39d5f2414a Makefile.PL
+SHA256 b35b403ef05c2d049464dc894f2c4aaa7c214af0925a6175adcdf152e2a4ff5e MANIFEST.SKIP
+SHA256 a9b50ec42882c51ee02121756b1d232457be9b11b54b51646493d6b97f1887de META.json
+SHA256 656e7f01507e37adf89a341ba84ed14a3effcc6a550ca60e1751570897c5e446 META.yml
+SHA256 85c0dab056a0d3af31bded1b5ce897c1065bb779a3f4e2c9fb458475c0c21d52 Makefile.PL
 SHA256 29860c37d5c1b8260c51206c28b7580ae6b03df165e2ec266db5d2f373a8a80e README
-SHA256 cc43859594b7bd2e14bb5ada4c8a01c437010283d4fddd92d86191d109010f78 README.md
+SHA256 7f237bd49206aa66675265834a76013ad984ab5eb251f3a0e08909d864be8075 README.md
 SHA256 672c89aacd483edd14cbe5ee7db5dfa2991addad05f0d920d2424dfe507592f0 TODO
 SHA256 ceed5e08784e849958f8aa74c536c008ad89cdce1612571ee38321293fc91250 build/README
 SHA256 9850d025676d6bd49c4703ae2091f95266cf457a5b033f457b9cf073f6a2c33f build/leak.pl
 SHA256 fbe60701f97bf64e468ebaae5fb4805409a61fa71793133d14909e0b9733e9fc build/leaktest
 SHA256 7ac0dbf02aa5f9fffd64599358320f60388e95de64f9ae7a6d718cf224a0b433 inc/Devel/CheckLib.pm
-SHA256 aa9eabf6ec786113f0fc40d7bbb048489583b4f0babb669f6975cd6e648b3e72 lib/Math/BigInt/GMP.pm
+SHA256 f743fa9b8c1edf3f5057c11a7c4647e92088684ce9f8ef3cf318e472186e5264 lib/Math/BigInt/GMP.pm
 SHA256 f855e68d0f171debf8369ead8b36d004188f1c9069287a0d3c67a87f9afb1312 t/00sig.t
 SHA256 02d11ba7425bc433a45b924752fcd7c3fb0840e78df7dc4c5b1eb572cc571873 t/01load.t
 SHA256 9567333ab26747265ddf9bbcda1d6a672b71c6e85eb2cad3021ba7d2f96eb1c1 t/Math/BigInt/Lib/TestUtil.pm
-SHA256 b5f6aacf13dc567671170a4086a03c43143af31b3596542e521464c5db19bba1 t/bigfltpm.inc
+SHA256 a4f89e3db1fc09ed210ebfb999ab73cf0636530053904c2f013a02cda2a86712 t/bigfltpm.inc
 SHA256 ba90ef638a3c5cd2be536e53144c37687d49c213bf3e0945c966012a6395fbf7 t/bigfltpm.t
 SHA256 b4c6c2c6539673ca4317d1edf14d0088d975c0c27ebe409f773a3b390d509d71 t/bigintg.t
-SHA256 4a27c4823323437af76bce2b33e6147891bfb5d0e0bb9d3dbc5e70931bc62882 t/bigintpm.inc
+SHA256 15f2e068f246498863a59f774c86ff7c0a6d46d2ce8e80bb877af5184f36485e t/bigintpm.inc
 SHA256 3f2f7ace432bf43336f143602aed02f30247df2f45cba918ce55f55529d66be0 t/bigintpm.t
 SHA256 2c9176d4f4ade203eabc81baeb3d51bc13370da33292335f3fc073c35fbe280e t/biglog.t
 SHA256 b8af8e548686d7132b27fad6f115a1b5c7b938260351a0a8233a4c6d6d824c99 t/bigroot.t
@@ -165,7 +165,7 @@ SHA256 5f8a8c4fb65028029b2cb51ec12aebd9d1d0b44ac6a48a31f5a8c1500aa27d15 xt/relea
 SHA256 a37a38d9b507b98f55a17efc4f2fd54e4c45e20ec2cb5067606a4501dd634494 xt/release/cpan-changes.t
 SHA256 befb07cbace153e844bd1aa24309e8136f0265cc97708bfb2f5f427964f7a88d xt/release/dist-manifest.t
 SHA256 dfba9c5f1e2b047a07c92747e523aceeab0d692a1bf655c2658386e45d9b4311 xt/release/distmeta.t
-SHA256 fc6f9ed47fe31cadd15c83309921e5ec6680c09f8cbb7a24ba34b1c9db5b3272 xt/release/git.t
+SHA256 2f6418e76023a02d013902d68fb5d7a957bb4ba09b6150b05a4baf2efcd73386 xt/release/git.t
 SHA256 48b9362ce2e88ef6a3dd81f820232165584d251861a27bde99ba6a707ea8e61c xt/release/kwalitee.t
 SHA256 c6f4a981a4c1990e5f524646375b7b219c29cba04869438e5463c096c808bf09 xt/release/minimum-version.t
 SHA256 efaab69873029c816c328623fc06ab2488148b627b969dbd071761dd68a1a40b xt/release/pod-coverage.t
@@ -176,11 +176,11 @@ SHA256 334ef06155ec886e4592639219b0227e330d969019a9ac25e0c633e4be1b38f3 xt/relea
 SHA256 79e228dfe3193c0f2b5f9afaa6677062ef33ac9c9578e0e6c5a627696c319982 xt/release/version.t
 -----BEGIN PGP SIGNATURE-----
 
-iQEcBAEBAwAGBQJkKq8+AAoJEGcmPl2fr166PZ4IAK+8GD+dGMtDWIgbKiLQ798/
-hU8YRmeZWDdwdjwgyfE3ZOgbbWX+PkQ08FAYy6wJGUExszGRartOIL0zvWm0y+Ri
-cDeLbKxNOhlnAxAzY44glaE5TtWh8RpaP+e0WKROgmxOeLVjs9DC5r+XhlzDqCnP
-B7XInVOLdP80g0QZRss6G1oB9qV6FX5/4PhnnF0qscdjsrNSJoslrM36UXy68CEP
-S2Rm1cqM8c80fhn7OxWIlj1807BLEk+csw6+Vrn8+AI1ombDRXP0UAxb5PH0R2mr
-gGdjOYFIujBFZfaoDq5V20nutTu1A3fesNCRwf84xBDZf7IgtDHimCHLuaGLov8=
-=9I7H
+iQEcBAEBAwAGBQJlCzaXAAoJEGcmPl2fr166DLYH+wRwIyIbWSnWurujFj1DVr0J
+xMWEZJ1jODkcyXZE60EdzjrF8DxRiC1/zDDQB2AgabZcmTvXthHjgZ0a9enznBFU
+HyrAsImbf0aB6SDHdQcPcVabr+XzlwIo7Oon7uMDpvSShtztI8qLi/MgH/vo4Fsa
+31srJEmb8hyFqFUiHWE1qoIGTbAq4tW3JlBVvBRjSyDI9FJiC4vZUmlD9wNQd1U1
+8zJQRDmnpMFmFrX4xjnTIHSPKw1Py8NV7qdRMMuN++h1Enp/8Fw4p0W7uoyrsO1J
+9o2EJyaPX5ddYEdh1QP2pjIL+SjHKUXXq9DNyugUixosReRH0lJnsIh0luHsLZY=
+=iljV
 -----END PGP SIGNATURE-----
diff --git a/lib/Math/BigInt/GMP.pm b/lib/Math/BigInt/GMP.pm
index 2bb31f7..027622b 100644
--- a/lib/Math/BigInt/GMP.pm
+++ b/lib/Math/BigInt/GMP.pm
@@ -8,7 +8,7 @@ use Math::BigInt::Lib 1.999801;
 
 our @ISA = qw< Math::BigInt::Lib >;
 
-our $VERSION = '1.6012';
+our $VERSION = '1.6013';
 
 use XSLoader;
 XSLoader::load "Math::BigInt::GMP", $VERSION;
@@ -118,10 +118,6 @@ L<https://metacpan.org/release/Math-BigInt-GMP>
 
 L<http://matrix.cpantesters.org/?dist=Math-BigInt-GMP>
 
-=item CPAN Ratings
-
-L<https://cpanratings.perl.org/dist/Math-BigInt-GMP>
-
 =back
 
 =head1 LICENSE
diff --git a/t/bigfltpm.inc b/t/bigfltpm.inc
index bd7e285..5dcacc6 100644
--- a/t/bigfltpm.inc
+++ b/t/bigfltpm.inc
@@ -466,17 +466,17 @@ $y = $CLASS->new("18.2");
 
 # 2 * (2 ** int(18.2));
 $x <<= $y;
-is($x->copy()->bfround(-9), "602248.763144685",
+is($x, 524288,
    qq|\$x = $CLASS->new("2"); \$y = $CLASS->new("18.2");| .
-   q| $x <<= $y; $x->copy()->bfround(-9);|);
+   q| $x <<= $y|);
 
-# 2 * (2 ** 18.2) / (2 ** 18.2) => 2
+# 2 * (2 ** int(18.2)) / (2 ** int(18.2)) => 2
 is($x >>= $y, 2,
    qq|\$x = $CLASS->new("2"); \$y = $CLASS->new("18.2");| .
-   q| $x <<= $y; $x->copy()->bfround(-9); $x >>= $y|);
+   q| $x <<= $y; $x >>= $y|);
 is($x, 2,
    qq|\$x = $CLASS->new("2"); \$y = $CLASS->new("18.2");| .
-   q| $x <<= $y; $x->copy()->bfround(-9); $x >>= $y; $x|);
+   q| $x <<= $y; $x >>= $y; $x|);
 
 __DATA__
 
diff --git a/t/bigintpm.inc b/t/bigintpm.inc
index ae029a2..fff5e78 100644
--- a/t/bigintpm.inc
+++ b/t/bigintpm.inc
@@ -1451,14 +1451,14 @@ abc:abc:NaN
 +2:+2:8
 +1:+32:4294967296
 +1:+48:281474976710656
-+8:-2:NaN
++8:-2:2
 # exercise base 10
 +12345:4:10:123450000
 -1234:0:10:-1234
 +1234:0:10:1234
 +2:2:10:200
 +12:2:10:1200
-+1234:-3:10:NaN
++1234:-3:10:1
 1234567890123:12:10:1234567890123000000000000
 -3:1:2:-6
 -5:1:2:-10
@@ -1470,14 +1470,14 @@ abc:abc:NaN
 +8:+2:2
 +4294967296:+32:1
 +281474976710656:+48:1
-+2:-2:NaN
++2:-2:8
 # exercise base 10
 -1234:0:10:-1234
 +1234:0:10:1234
 +200:2:10:2
 +1234:3:10:1
 +1234:2:10:12
-+1234:-3:10:NaN
++1234:-3:10:1234000
 310000:4:10:31
 12300000:5:10:123
 1230000000000:10:10:123
diff --git a/xt/release/git.t b/xt/release/git.t
index 84f37b7..e754fdf 100644
--- a/xt/release/git.t
+++ b/xt/release/git.t
@@ -6,6 +6,7 @@ use warnings;
 use IO::Pipe;
 use IO::File;
 use IO::Dir;
+
 use File::Which    qw< which >;
 use Sort::Versions qw< versioncmp >;
 
@@ -129,7 +130,18 @@ for (my $i = 0 ; $i <= $#files ; $i++) {
       or die "$filename: can't open file for reading: $!\n";
 
     while (defined(my $line = <$fh>)) {
-        push @vers, $1 if $line =~ /^(\S+)/;
+        if ($line =~ /^(\S+)/) {
+            my $verstr = $1;
+            if ($verstr =~ / ^ v? ( \d+ ( \. \d+ ( _ \d+ )* )? ) $ /ix) {
+                my $vernum = $1;
+                $vernum =~ tr/_//d;
+                push @vers, [ $verstr, $vernum ];
+                last;                   # only get the first one
+            } else {
+                printf STDERR "  Ignoring version number '%s' in %s line %u\n",
+                  $verstr, $filename, $.;
+            }
+        }
     }
 
     $fh -> close()
@@ -138,22 +150,18 @@ for (my $i = 0 ; $i <= $#files ; $i++) {
 
 # Sort the versions.
 
-@vers = sort { versioncmp($a, $b) } @vers;
+#@vers = sort { versioncmp($a, $b) } @vers;
 
 unless (@vers) {
     print "not ";
     $failno++;
 }
 print "ok ", ++$testno, " - found version number(s) in changelog file(s)";
-print " ('$vers[-1]')" if @vers;
+print " ('$vers[0][0]')" if @vers;
 print "\n";
 
-# Get most recent version (migth be undef).
-
-my $ver = $vers[-1];
-
 ################################################################################
-# Get the all the git tags.
+# Get the all the git tags that look like version numbers.
 ################################################################################
 
 my @tags;
@@ -162,44 +170,44 @@ my @tags;
     my @args = ('git', 'tag', '-l');
     $pipe -> reader(@args);
     while (defined(my $tag = <$pipe>)) {
-        next unless $tag =~ /^v?\d/;
         $tag =~ s/\s+\z//;
-        push @tags, $tag;
+        if ($tag =~ / ^ v? ( \d+ ( \. \d+ ( _ \d+ )* )? ) /ix) {
+            my $vernum = $1;
+            $vernum =~ tr/_//d;
+            push @tags, [ $tag, $vernum ];
+        }
     }
     $pipe -> close() or die "can't close pipe after reading: $!";
 }
 
 # Sort the tags.
 
-@tags = sort { versioncmp($a, $b) } @tags;
+#@tags = sort { versioncmp($b, $b) } @tags;
+@tags = sort { $b -> [1] <=> $a -> [1] } @tags;
 
 unless (@tags) {
     print "not ";
     $failno++;
 }
 print "ok ", ++$testno, " - found git tag(s)";
-print " ('$tags[-1]')" if @tags;
+print " ('", $tags[0][0], "')" if @tags;
 print "\n";
 
-# Get newest tag (might be undef).
-
-my $tag = $tags[-1];
-
 ################################################################################
 # Compare version number with git tag.
 ################################################################################
 
 ++$testno;
 if (@vers and @tags) {
-    my $ok = versioncmp($ver, $tag) == 0;
+    my $ok = $vers[0][0] eq $tags[0][0];
     unless ($ok) {
         print "not ";
         $failno++;
     }
     print "ok ", $testno, " - changelog version matches git tag\n";
     print STDERR <<"EOF" unless $ok;
-#   latest version in changelog(s): $ver
-#                   latest git tag: $tag
+#   latest version in changelog(s): $vers[0][0]
+#                   latest git tag: $tags[0][0]
 EOF
 } else {
     print "ok ", $testno, " - skipped (missing version number or git tag)\n";
@@ -217,7 +225,7 @@ my $commit_tagged;
 ++$testno;
 if (@tags) {
     my $pipe = IO::Pipe -> new();
-    my @args = ('git', 'rev-parse', $tag);
+    my @args = ('git', 'rev-parse', $tags[0][0]);
     $pipe -> reader(@args);
     $commit_tagged = <$pipe>;
     chomp $commit_tagged if defined $commit_tagged;
@@ -226,7 +234,7 @@ if (@tags) {
         print "not ";
         $failno++;
     }
-    print "ok ", $testno, " - tag ('$tag') refers to a commit";
+    print "ok ", $testno, " - tag ('$tags[0][0]') refers to a commit";
     print " ('$commit_tagged')" if $commit_tagged;
     print "\n";
 } else {