Import perl-5.28.1

looking good sthen@, Great! bluhm@

26 files changed, 82 insertions, 455 deletions

diff --git a/gnu/usr.bin/perl/.travis.yml b/gnu/usr.bin/perl/.travis.yml
index 51f83e1f96a..cd235e74daa 100644
--- a/gnu/usr.bin/perl/.travis.yml
+++ b/gnu/usr.bin/perl/.travis.yml
@@ -3,9 +3,11 @@ cache: ccache
 
 os:
   - linux
+  - osx
 
 compiler:
   - gcc
+  - clang
 
 install:
   - git fetch --unshallow --tags # t/porting/cmp_version.t
@@ -17,17 +19,16 @@ env:
     global:
         - JOBS=4
     matrix:
-        # exercise a variety of build options
-        # threads often cause build issues
         - CONFIGURE_ARGS='-Uusethreads'
         - CONFIGURE_ARGS='-Dusethreads'
-        # check long doubles
-        - CONFIGURE_ARGS='-Duseshrplib -Dusesitecustomize -Duselongdouble'
-        # exercise quadmath
-        - CONFIGURE_ARGS='-Duseshrplib -Dusequadmath -Dusecbacktrace -Dusethreads'
 
+# only use gcc on linux, and only use clang on osx for now
 matrix:
-  fast_finish: true
+  exclude:
+  - compiler: clang
+    os: linux
+  - compiler: gcc
+    os: osx
 
 script:
   - ./Configure -des -Dusedevel -Uversiononly -Dcc="ccache $CC" $CONFIGURE_ARGS -Dprefix=$HOME/perl-blead -DDEBUGGING
@@ -63,7 +64,7 @@ notifications:
       - "Report for %{repository} (%{commit}) from %{author} (%{elapsed_time})"
       - "Status: %{message}"
       - "Build URL: %{build_url}"
-      - "GitHub URL: https://github.com/%{repository_slug}/commit/%{commit}"
+      - "GitHub URL: https://github.com/p5h/perl5demo/commit/%{commit}" # adjust this url to use the production repo
     on_success: change # default: always
     on_failure: always # default: always
-#    use_notice: true
+#    use_notice: true
\ No newline at end of file
diff --git a/gnu/usr.bin/perl/cpan/Math-BigInt/t/bdstr-mbf.t b/gnu/usr.bin/perl/cpan/Math-BigInt/t/bdstr-mbf.t
index 950ae6f279d..8b13bd44035 100644
--- a/gnu/usr.bin/perl/cpan/Math-BigInt/t/bdstr-mbf.t
+++ b/gnu/usr.bin/perl/cpan/Math-BigInt/t/bdstr-mbf.t
@@ -1,4 +1,4 @@
-# -*- mode: perl; -*-
+#!perl
 
 use strict;
 use warnings;
diff --git a/gnu/usr.bin/perl/cpan/Math-BigInt/t/bdstr-mbi.t b/gnu/usr.bin/perl/cpan/Math-BigInt/t/bdstr-mbi.t
index 68671619cfb..d369ec9f8ff 100644
--- a/gnu/usr.bin/perl/cpan/Math-BigInt/t/bdstr-mbi.t
+++ b/gnu/usr.bin/perl/cpan/Math-BigInt/t/bdstr-mbi.t
@@ -1,4 +1,4 @@
-# -*- mode: perl; -*-
+#!perl
 
 use strict;
 use warnings;
diff --git a/gnu/usr.bin/perl/cpan/Math-BigInt/t/bestr-mbf.t b/gnu/usr.bin/perl/cpan/Math-BigInt/t/bestr-mbf.t
index 12277a52729..fcb11078b37 100644
--- a/gnu/usr.bin/perl/cpan/Math-BigInt/t/bestr-mbf.t
+++ b/gnu/usr.bin/perl/cpan/Math-BigInt/t/bestr-mbf.t
@@ -1,4 +1,4 @@
-# -*- mode: perl; -*-
+#!perl
 
 use strict;
 use warnings;
diff --git a/gnu/usr.bin/perl/cpan/Math-BigInt/t/bestr-mbi.t b/gnu/usr.bin/perl/cpan/Math-BigInt/t/bestr-mbi.t
index 8c4c0bd5180..1d391d4e358 100644
--- a/gnu/usr.bin/perl/cpan/Math-BigInt/t/bestr-mbi.t
+++ b/gnu/usr.bin/perl/cpan/Math-BigInt/t/bestr-mbi.t
@@ -1,4 +1,4 @@
-# -*- mode: perl; -*-
+#!perl
 
 use strict;
 use warnings;
diff --git a/gnu/usr.bin/perl/cpan/Math-BigInt/t/bfib-mbi.t b/gnu/usr.bin/perl/cpan/Math-BigInt/t/bfib-mbi.t
index 91e7aafad57..3b24eca8235 100644
--- a/gnu/usr.bin/perl/cpan/Math-BigInt/t/bfib-mbi.t
+++ b/gnu/usr.bin/perl/cpan/Math-BigInt/t/bfib-mbi.t
@@ -1,4 +1,4 @@
-# -*- mode: perl; -*-
+#!perl
 
 use strict;
 use warnings;
diff --git a/gnu/usr.bin/perl/cpan/Math-BigInt/t/blucas-mbi.t b/gnu/usr.bin/perl/cpan/Math-BigInt/t/blucas-mbi.t
index 9a9215929f3..17b9017fbfb 100644
--- a/gnu/usr.bin/perl/cpan/Math-BigInt/t/blucas-mbi.t
+++ b/gnu/usr.bin/perl/cpan/Math-BigInt/t/blucas-mbi.t
@@ -1,4 +1,4 @@
-# -*- mode: perl; -*-
+#!perl
 
 use strict;
 use warnings;
diff --git a/gnu/usr.bin/perl/cpan/Math-BigInt/t/bnstr-mbf.t b/gnu/usr.bin/perl/cpan/Math-BigInt/t/bnstr-mbf.t
index 9e03a5bf486..d21051a9157 100644
--- a/gnu/usr.bin/perl/cpan/Math-BigInt/t/bnstr-mbf.t
+++ b/gnu/usr.bin/perl/cpan/Math-BigInt/t/bnstr-mbf.t
@@ -1,4 +1,4 @@
-# -*- mode: perl; -*-
+#!perl
 
 use strict;
 use warnings;
diff --git a/gnu/usr.bin/perl/cpan/Math-BigInt/t/bnstr-mbi.t b/gnu/usr.bin/perl/cpan/Math-BigInt/t/bnstr-mbi.t
index ee4eec385e2..361166c6db2 100644
--- a/gnu/usr.bin/perl/cpan/Math-BigInt/t/bnstr-mbi.t
+++ b/gnu/usr.bin/perl/cpan/Math-BigInt/t/bnstr-mbi.t
@@ -1,4 +1,4 @@
-# -*- mode: perl; -*-
+#!perl
 
 use strict;
 use warnings;
diff --git a/gnu/usr.bin/perl/cpan/Math-BigInt/t/bsstr-mbf.t b/gnu/usr.bin/perl/cpan/Math-BigInt/t/bsstr-mbf.t
index 3c18e6c64f6..89faab17849 100644
--- a/gnu/usr.bin/perl/cpan/Math-BigInt/t/bsstr-mbf.t
+++ b/gnu/usr.bin/perl/cpan/Math-BigInt/t/bsstr-mbf.t
@@ -1,4 +1,4 @@
-# -*- mode: perl; -*-
+#!perl
 
 use strict;
 use warnings;
diff --git a/gnu/usr.bin/perl/cpan/Math-BigInt/t/bsstr-mbi.t b/gnu/usr.bin/perl/cpan/Math-BigInt/t/bsstr-mbi.t
index 1093aa2821c..1422522d063 100644
--- a/gnu/usr.bin/perl/cpan/Math-BigInt/t/bsstr-mbi.t
+++ b/gnu/usr.bin/perl/cpan/Math-BigInt/t/bsstr-mbi.t
@@ -1,4 +1,4 @@
-# -*- mode: perl; -*-
+#!perl
 
 use strict;
 use warnings;
diff --git a/gnu/usr.bin/perl/cpan/Math-BigInt/t/dparts-mbf.t b/gnu/usr.bin/perl/cpan/Math-BigInt/t/dparts-mbf.t
index 43bdd22b760..90a29dd753d 100644
--- a/gnu/usr.bin/perl/cpan/Math-BigInt/t/dparts-mbf.t
+++ b/gnu/usr.bin/perl/cpan/Math-BigInt/t/dparts-mbf.t
@@ -1,4 +1,4 @@
-# -*- mode: perl; -*-
+#!perl
 
 use strict;
 use warnings;
diff --git a/gnu/usr.bin/perl/cpan/Math-BigInt/t/dparts-mbi.t b/gnu/usr.bin/perl/cpan/Math-BigInt/t/dparts-mbi.t
index 0b4ba382678..4488b2e5970 100644
--- a/gnu/usr.bin/perl/cpan/Math-BigInt/t/dparts-mbi.t
+++ b/gnu/usr.bin/perl/cpan/Math-BigInt/t/dparts-mbi.t
@@ -1,4 +1,4 @@
-# -*- mode: perl; -*-
+#!perl
 
 use strict;
 use warnings;
diff --git a/gnu/usr.bin/perl/cpan/Math-BigInt/t/eparts-mbf.t b/gnu/usr.bin/perl/cpan/Math-BigInt/t/eparts-mbf.t
index a612461fa91..0c84ac66620 100644
--- a/gnu/usr.bin/perl/cpan/Math-BigInt/t/eparts-mbf.t
+++ b/gnu/usr.bin/perl/cpan/Math-BigInt/t/eparts-mbf.t
@@ -1,4 +1,4 @@
-# -*- mode: perl; -*-
+#!perl
 
 use strict;
 use warnings;
diff --git a/gnu/usr.bin/perl/cpan/Math-BigInt/t/eparts-mbi.t b/gnu/usr.bin/perl/cpan/Math-BigInt/t/eparts-mbi.t
index 783f716e5cf..5c84e28c2db 100644
--- a/gnu/usr.bin/perl/cpan/Math-BigInt/t/eparts-mbi.t
+++ b/gnu/usr.bin/perl/cpan/Math-BigInt/t/eparts-mbi.t
@@ -1,4 +1,4 @@
-# -*- mode: perl; -*-
+#!perl
 
 use strict;
 use warnings;
diff --git a/gnu/usr.bin/perl/cpan/Math-BigInt/t/from_bin-mbf.t b/gnu/usr.bin/perl/cpan/Math-BigInt/t/from_bin-mbf.t
index a24f1bfd4df..99c02dbf1c2 100644
--- a/gnu/usr.bin/perl/cpan/Math-BigInt/t/from_bin-mbf.t
+++ b/gnu/usr.bin/perl/cpan/Math-BigInt/t/from_bin-mbf.t
@@ -1,9 +1,9 @@
-# -*- mode: perl; -*-
+#!perl
 
 use strict;
 use warnings;
 
-use Test::More tests => 785;
+use Test::More tests => 729;
 
 my $class;
 
@@ -88,9 +88,7 @@ __END__
 0b0.0p+0:0
 
 0b1100101011111110:51966
-0B1100101011111110:51966
 b1100101011111110:51966
-B1100101011111110:51966
 1100101011111110:51966
 
 0b1.1001p+3:12.5
@@ -98,8 +96,7 @@ B1100101011111110:51966
 -0b.11110001001101010111100110111101111p+31:-2023406814.9375
 0b10.0100011010001010110011110001001101p+34:39093746765
 
-0b.p+0:NaN
-
 NaN:NaN
 +inf:NaN
 -inf:NaN
+0b.p+0:NaN
diff --git a/gnu/usr.bin/perl/cpan/Math-BigInt/t/from_bin-mbi.t b/gnu/usr.bin/perl/cpan/Math-BigInt/t/from_bin-mbi.t
index da8300726bf..b4730794613 100644
--- a/gnu/usr.bin/perl/cpan/Math-BigInt/t/from_bin-mbi.t
+++ b/gnu/usr.bin/perl/cpan/Math-BigInt/t/from_bin-mbi.t
@@ -1,9 +1,9 @@
-# -*- mode: perl; -*-
+#!perl
 
 use strict;
 use warnings;
 
-use Test::More tests => 1457;
+use Test::More tests => 1373;
 
 my $class;
 
@@ -123,10 +123,6 @@ __END__
 0b100000000000000000000000000000000000000000000000000000000:72057594037927936
 0b100000000000000000000000000000000000000000000000000000001:72057594037927937
 
-0B10:2
-b10:2
-B10:2
-
 NaN:NaN
 +inf:NaN
 -inf:NaN
diff --git a/gnu/usr.bin/perl/cpan/Math-BigInt/t/from_hex-mbi.t b/gnu/usr.bin/perl/cpan/Math-BigInt/t/from_hex-mbi.t
index 200253134ff..246b455ebdf 100644
--- a/gnu/usr.bin/perl/cpan/Math-BigInt/t/from_hex-mbi.t
+++ b/gnu/usr.bin/perl/cpan/Math-BigInt/t/from_hex-mbi.t
@@ -1,9 +1,9 @@
-# -*- mode: perl; -*-
+#!perl
 
 use strict;
 use warnings;
 
-use Test::More tests => 1457;
+use Test::More tests => 1373;
 
 my $class;
 
@@ -123,10 +123,6 @@ __END__
 0x100000000000000:72057594037927936
 0x100000000000001:72057594037927937
 
-0X10:16
-x10:16
-X10:16
-
 NaN:NaN
 +inf:NaN
 -inf:NaN
diff --git a/gnu/usr.bin/perl/cpan/Math-BigInt/t/from_oct-mbf.t b/gnu/usr.bin/perl/cpan/Math-BigInt/t/from_oct-mbf.t
index 2fff2a0ba3e..685934820c4 100644
--- a/gnu/usr.bin/perl/cpan/Math-BigInt/t/from_oct-mbf.t
+++ b/gnu/usr.bin/perl/cpan/Math-BigInt/t/from_oct-mbf.t
@@ -1,9 +1,9 @@
-# -*- mode: perl; -*-
+#!perl
 
 use strict;
 use warnings;
 
-use Test::More tests => 1401;
+use Test::More tests => 729;
 
 my $class;
 
@@ -69,8 +69,6 @@ for my $entry (@data) {
 
 __END__
 
-# Without "0o" prefix.
-
 01p+0:1
 0.4p+1:1
 0.2p+2:1
@@ -98,40 +96,7 @@ __END__
 -0.361152746757p+32:-2023406814.9375
 44.3212636115p+30:39093746765
 
-.p+0:NaN
-
-# With "0o" prefix.
-
-0o01p+0:1
-0o0.4p+1:1
-0o0.2p+2:1
-0o0.1p+3:1
-0o0.04p+4:1
-0o02p-1:1
-0o04p-2:1
-0o010p-3:1
-
--0o1p+0:-1
-
-0o0p+0:0
-0o0p+7:0
-0o0p-7:0
-0o0.p+0:0
-0o.0p+0:0
-0o0.0p+0:0
-
-0o145376:51966
-0O145376:51966
-o145376:51966
-O145376:51966
-
-0o3.1p+2:12.5
-0o22.15p-1:9.1015625
--0o0.361152746757p+32:-2023406814.9375
-0o44.3212636115p+30:39093746765
-
-0o.p+0:NaN
-
 NaN:NaN
 +inf:NaN
 -inf:NaN
+.p+0:NaN
diff --git a/gnu/usr.bin/perl/cpan/Math-BigInt/t/from_oct-mbi.t b/gnu/usr.bin/perl/cpan/Math-BigInt/t/from_oct-mbi.t
index 3ec700ee88e..6ff650c8b8e 100644
--- a/gnu/usr.bin/perl/cpan/Math-BigInt/t/from_oct-mbi.t
+++ b/gnu/usr.bin/perl/cpan/Math-BigInt/t/from_oct-mbi.t
@@ -1,9 +1,9 @@
-# -*- mode: perl; -*-
+#!perl
 
 use strict;
 use warnings;
 
-use Test::More tests => 2745;
+use Test::More tests => 1373;
 
 my $class;
 
@@ -123,64 +123,6 @@ __END__
 4000000000000000000:72057594037927936
 4000000000000000001:72057594037927937
 
-0o0:0
-0o1:1
-0o2:2
-0o3:3
-0o4:4
-0o5:5
-0o6:6
-0o7:7
-0o10:8
-0o11:9
-0o12:10
-0o13:11
-0o14:12
-0o15:13
-0o16:14
-0o17:15
-0o20:16
-0o21:17
-
-0o376:254
-0o377:255
-0o400:256
-0o401:257
-
-0o177776:65534
-0o177777:65535
-0o200000:65536
-0o200001:65537
-
-0o77777776:16777214
-0o77777777:16777215
-0o100000000:16777216
-0o100000001:16777217
-
-0o37777777776:4294967294
-0o37777777777:4294967295
-0o40000000000:4294967296
-0o40000000001:4294967297
-
-0o17777777777776:1099511627774
-0o17777777777777:1099511627775
-0o20000000000000:1099511627776
-0o20000000000001:1099511627777
-
-0o7777777777777776:281474976710654
-0o7777777777777777:281474976710655
-0o10000000000000000:281474976710656
-0o10000000000000001:281474976710657
-
-0o3777777777777777776:72057594037927934
-0o3777777777777777777:72057594037927935
-0o4000000000000000000:72057594037927936
-0o4000000000000000001:72057594037927937
-
-0O10:8
-o10:8
-O10:8
-
 NaN:NaN
 +inf:NaN
 -inf:NaN
diff --git a/gnu/usr.bin/perl/cpan/Math-BigInt/t/new-mbf.t b/gnu/usr.bin/perl/cpan/Math-BigInt/t/new-mbf.t
index d4fa8b6017d..d1edfd45ff6 100644
--- a/gnu/usr.bin/perl/cpan/Math-BigInt/t/new-mbf.t
+++ b/gnu/usr.bin/perl/cpan/Math-BigInt/t/new-mbf.t
@@ -1,16 +1,14 @@
-# -*- mode: perl; -*-
+#!perl
 
 use strict;
 use warnings;
 
-use Test::More tests => 112;
-
-use Scalar::Util qw< refaddr >;
+use Test::More tests => 50;
 
 my $class;
 
 BEGIN { $class = 'Math::BigFloat'; }
-BEGIN { use_ok($class, '1.999821'); }
+BEGIN { use_ok($class, '1.999710'); }
 
 while (<DATA>) {
     s/#.*$//;           # remove comments
@@ -37,110 +35,6 @@ while (<DATA>) {
 
 }
 
-# new()
-
-{
-    my $x = $class -> new();
-    subtest qq|\$x = $class -> new();|, => sub {
-        plan tests => 2;
-
-        is(ref($x), $class, "output arg is a $class");
-        is($x, "0", 'output arg has the right value');
-    };
-}
-
-# new("")
-
-{
-    no warnings "numeric";
-    my $x = $class -> new("");
-    subtest qq|\$x = $class -> new("");|, => sub {
-        plan tests => 2;
-
-        is(ref($x), $class, "output arg is a $class");
-#        is($x, "0", 'output arg has the right value');
-        is($x, "NaN", 'output arg has the right value');
-    };
-}
-
-# new(undef)
-
-{
-    no warnings "uninitialized";
-    my $x = $class -> new(undef);
-    subtest qq|\$x = $class -> new(undef);|, => sub {
-        plan tests => 2;
-
-        is(ref($x), $class, "output arg is a $class");
-        is($x, "0", 'output arg has the right value');
-    };
-}
-
-# new($x)
-#
-# In this case, when $x isa Math::BigFloat, only the sign and value should be
-# copied from $x, not the accuracy or precision.
-
-SKIP: {
-    skip "This test reveals a bug that has not been fixed yet", 2;
-
-    my ($a, $p, $x, $y);
-
-    $a = $class -> accuracy();          # get original
-    $class -> accuracy(4711);           # set new global value
-    $x = $class -> new("314");          # create object
-    $x -> accuracy(41);                 # set instance value
-    $y = $class -> new($x);             # create new object
-    is($y -> accuracy(), 4711, 'object has the global accuracy');
-    $class -> accuracy($a);             # reset
-
-    $p = $class -> precision();         # get original
-    $class -> precision(4711);          # set new global value
-    $x = $class -> new("314");          # create object
-    $x -> precision(41);                # set instance value
-    $y = $class -> new($x);             # create new object
-    is($y -> precision(), 4711, 'object has the global precision');
-    $class -> precision($p);            # reset
-}
-
-# Make sure that library thingies are indeed copied.
-
-{
-    my ($x, $y);
-
-    $x = $class -> new("314");          # create object
-    $y = $class -> new($x);             # create new object
-    subtest 'library thingy is copied' => sub {
-        my @keys = ('_m', '_e');
-        plan tests => scalar @keys;
-        for my $key (@keys) {
-            isnt(refaddr($y -> {$key}), refaddr($x -> {$key}),
-                 'library thingy is a copy');
-        }
-    };
-}
-
-# Other tests where we must use the scientific notation in the output.
-
-for my $str (qw/
-                   1e+4294967296
-                   1e+18446744073709551616
-                   1e+79228162514264337593543950336
-                   1e+340282366920938463463374607431768211456
-                   1e+1461501637330902918203684832716283019655932542976
-                   1e+6277101735386680763835789423207666416102355444464034512896
-               /)
-{
-    my $x;
-    $x = $class -> new($str);
-    subtest $str, sub {
-        plan tests => 2,
-
-        is(ref($x), $class, "output arg is a $class");
-        is($x -> bnstr(), $str, 'output arg has the right value');
-    }
-}
-
 __END__
 
 NaN:NaN
@@ -151,118 +45,6 @@ infinity:inf
 -inf:-inf
 -infinity:-inf
 
-# This is the same data as in from_bin-mbf.t, except that some of them are
-# commented out, since new() only treats input as binary if it has a "0b" or
-# "0B" prefix, possibly with a leading "+" or "-" sign. Duplicates from above
-# are also commented out.
-
-0b1p+0:1
-0b.1p+1:1
-0b.01p+2:1
-0b.001p+3:1
-0b.0001p+4:1
-0b10p-1:1
-0b100p-2:1
-0b1000p-3:1
-
--0b1p+0:-1
-
-0b0p+0:0
-0b0p+7:0
-0b0p-7:0
-0b0.p+0:0
-0b.0p+0:0
-0b0.0p+0:0
-
-0b1100101011111110:51966
-0B1100101011111110:51966
-b1100101011111110:51966
-B1100101011111110:51966
-#1100101011111110:51966
-
-0b1.1001p+3:12.5
-0b10010.001101p-1:9.1015625
--0b.11110001001101010111100110111101111p+31:-2023406814.9375
-0b10.0100011010001010110011110001001101p+34:39093746765
-
-0b.p+0:NaN
-
-#NaN:NaN
-#+inf:NaN
-#-inf:NaN
-
-# This is more or less the same data as in from_oct-mbf.t, except that some of
-# them are commented out, since new() does not consider a number with just a
-# leading zero to be an octal number. Duplicates from above are also commented
-# out.
-
-# Without "0o" prefix.
-
-001p+0:1
-00.4p+1:1
-00.2p+2:1
-00.1p+3:1
-00.04p+4:1
-02p-1:1
-04p-2:1
-010p-3:1
-
--01p+0:-1
-
-00p+0:0
-00p+7:0
-00p-7:0
-00.p+0:0
-00.0p+0:0
-
-#145376:51966
-#0145376:51966
-#00145376:51966
-
-03.1p+2:12.5
-022.15p-1:9.1015625
--00.361152746757p+32:-2023406814.9375
-044.3212636115p+30:39093746765
-
-0.p+0:NaN
-.p+0:NaN
-
-# With "0o" prefix.
-
-0o01p+0:1
-0o0.4p+1:1
-0o0.2p+2:1
-0o0.1p+3:1
-0o0.04p+4:1
-0o02p-1:1
-0o04p-2:1
-0o010p-3:1
-
--0o1p+0:-1
-
-0o0p+0:0
-0o0p+7:0
-0o0p-7:0
-0o0.p+0:0
-0o.0p+0:0
-0o0.0p+0:0
-
-0o145376:51966
-0O145376:51966
-o145376:51966
-O145376:51966
-
-0o3.1p+2:12.5
-0o22.15p-1:9.1015625
--0o0.361152746757p+32:-2023406814.9375
-0o44.3212636115p+30:39093746765
-
-0o.p+0:NaN
-
-#NaN:NaN
-#+inf:NaN
-#-inf:NaN
-
 # This is the same data as in from_hex-mbf.t, except that some of them are
 # commented out, since new() only treats input as hexadecimal if it has a "0x"
 # or "0X" prefix, possibly with a leading "+" or "-" sign.
@@ -286,9 +68,7 @@ O145376:51966
 0x0.0p+0:0
 
 0xcafe:51966
-0Xcafe:51966
-xcafe:51966
-Xcafe:51966
+#xcafe:51966
 #cafe:51966
 
 0x1.9p+3:12.5
@@ -296,8 +76,44 @@ Xcafe:51966
 -0x.789abcdefp+32:-2023406814.9375
 0x12.3456789ap+31:39093746765
 
+#NaN:NaN
+#+inf:NaN
+#-inf:NaN
 0x.p+0:NaN
 
+# This is the same data as in from_bin-mbf.t, except that some of them are
+# commented out, since new() only treats input as binary if it has a "0b" or
+# "0B" prefix, possibly with a leading "+" or "-" sign. Duplicates from above
+# are also commented out.
+
+0b1p+0:1
+0b.1p+1:1
+0b.01p+2:1
+0b.001p+3:1
+0b.0001p+4:1
+0b10p-1:1
+0b100p-2:1
+0b1000p-3:1
+
+-0b1p+0:-1
+
+0b0p+0:0
+0b0p+7:0
+0b0p-7:0
+0b0.p+0:0
+0b.0p+0:0
+0b0.0p+0:0
+
+0b1100101011111110:51966
+#b1100101011111110:51966
+#1100101011111110:51966
+
+0b1.1001p+3:12.5
+0b10010.001101p-1:9.1015625
+-0b.11110001001101010111100110111101111p+31:-2023406814.9375
+0b10.0100011010001010110011110001001101p+34:39093746765
+
 #NaN:NaN
 #+inf:NaN
 #-inf:NaN
+0b.p+0:NaN
diff --git a/gnu/usr.bin/perl/cpan/Math-BigInt/t/nparts-mbf.t b/gnu/usr.bin/perl/cpan/Math-BigInt/t/nparts-mbf.t
index 0c558ad3be9..a680628122e 100644
--- a/gnu/usr.bin/perl/cpan/Math-BigInt/t/nparts-mbf.t
+++ b/gnu/usr.bin/perl/cpan/Math-BigInt/t/nparts-mbf.t
@@ -1,4 +1,4 @@
-# -*- mode: perl; -*-
+#!perl
 
 use strict;
 use warnings;
diff --git a/gnu/usr.bin/perl/cpan/Math-BigInt/t/nparts-mbi.t b/gnu/usr.bin/perl/cpan/Math-BigInt/t/nparts-mbi.t
index a9705353396..c2f41f3a083 100644
--- a/gnu/usr.bin/perl/cpan/Math-BigInt/t/nparts-mbi.t
+++ b/gnu/usr.bin/perl/cpan/Math-BigInt/t/nparts-mbi.t
@@ -1,4 +1,4 @@
-# -*- mode: perl; -*-
+#!perl
 
 use strict;
 use warnings;
diff --git a/gnu/usr.bin/perl/cpan/Math-BigInt/t/sparts-mbf.t b/gnu/usr.bin/perl/cpan/Math-BigInt/t/sparts-mbf.t
index b1a7a4a87e0..ac8cc761e7b 100644
--- a/gnu/usr.bin/perl/cpan/Math-BigInt/t/sparts-mbf.t
+++ b/gnu/usr.bin/perl/cpan/Math-BigInt/t/sparts-mbf.t
@@ -1,9 +1,9 @@
-# -*- mode: perl; -*-
+#!perl
 
 use strict;
 use warnings;
 
-use Test::More tests => 1848;
+use Test::More tests => 1840;
 
 use Math::BigFloat;
 
@@ -44,37 +44,6 @@ while (<DATA>) {
 
 }
 
-# Verify that the accuracy of the significand and the exponent depends on the
-# accuracy of the invocand, if set, not the class.
-
-note(qq|\nVerify that accuracy depends on invocand, not class.\n\n|);
-
-{
-    Math::BigFloat -> accuracy(20);
-    my $x = Math::BigFloat -> new("3"); # accuray is 20
-    $x -> accuracy(10);                 # reduce accuray to 10
-
-    my ($mant, $expo) = $x -> sparts();
-    cmp_ok($mant, '==', 3, "value of significand");
-    cmp_ok($expo, '==', 0, "value of exponent");
-    cmp_ok($mant -> accuracy(), '==', 10, "accuracy of significand");
-    cmp_ok($expo -> accuracy(), '==', 20, "accuracy of exponent");
-}
-
-note(qq|\nVerify that precision depends on invocand, not class.\n\n|);
-
-{
-    Math::BigFloat -> precision(20);
-    my $x = Math::BigFloat -> new("3"); # precision is 20
-    $x -> precision(10);                # reduce precision to 10
-
-    my ($mant, $expo) = $x -> sparts();
-    cmp_ok($mant, '==', 3, "value of significand");
-    cmp_ok($expo, '==', 0, "value of exponent");
-    cmp_ok($mant -> precision(), '==', 10, "precision of significand");
-    cmp_ok($expo -> precision(), '==', 20, "precision of exponent");
-}
-
 __DATA__
 
 NaN:NaN:NaN
diff --git a/gnu/usr.bin/perl/cpan/Math-BigInt/t/sparts-mbi.t b/gnu/usr.bin/perl/cpan/Math-BigInt/t/sparts-mbi.t
index 5d1dab333fb..648de7e8281 100644
--- a/gnu/usr.bin/perl/cpan/Math-BigInt/t/sparts-mbi.t
+++ b/gnu/usr.bin/perl/cpan/Math-BigInt/t/sparts-mbi.t
@@ -1,9 +1,9 @@
-# -*- mode: perl; -*-
+#!perl
 
 use strict;
 use warnings;
 
-use Test::More tests => 792;
+use Test::More tests => 784;
 
 use Math::BigInt;
 
@@ -44,37 +44,6 @@ while (<DATA>) {
 
 }
 
-# Verify that the accuracy of the significand and the exponent depends on the
-# accuracy of the invocand, if set, not the class.
-
-note(qq|\nVerify that accuracy depends on invocand, not class.\n\n|);
-
-{
-    Math::BigInt -> accuracy(20);
-    my $x = Math::BigInt -> new("3");   # accuracy is 20
-    $x -> accuracy(10);                 # reduce accuracy to 10
-
-    my ($mant, $expo) = $x -> sparts();
-    cmp_ok($mant, '==', 3, "value of significand");
-    cmp_ok($expo, '==', 0, "value of exponent");
-    cmp_ok($mant -> accuracy(), '==', 10, "accuracy of significand");
-    cmp_ok($expo -> accuracy(), '==', 20, "accuracy of exponent");
-}
-
-note(qq|\nVerify that precision depends on invocand, not class.\n\n|);
-
-{
-    Math::BigInt -> precision(20);
-    my $x = Math::BigInt -> new("3");   # precision is 20
-    $x -> precision(10);                # reduce precision to 10
-
-    my ($mant, $expo) = $x -> sparts();
-    cmp_ok($mant, '==', 3, "value of significand");
-    cmp_ok($expo, '==', 0, "value of exponent");
-    cmp_ok($mant -> precision(), '==', 10, "precision of significand");
-    cmp_ok($expo -> precision(), '==', 20, "precision of exponent");
-}
-
 __DATA__
 
 NaN:NaN:NaN
diff --git a/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/man/uppercase-license b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/man/uppercase-license
index f49baa33187..4c02452f064 100644
--- a/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/man/uppercase-license
+++ b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/man/uppercase-license
@@ -4,16 +4,6 @@ Uppercase license text
 [input]
 =head1 Uppercase License
 
-Permission is hereby granted, free of charge, to any person obtaining a
-copy of this software and associated documentation files (the "Software"),
-to deal in the Software without restriction, including without limitation
-the rights to use, copy, modify, merge, publish, distribute, sublicense,
-and/or sell copies of the Software, and to permit persons to whom the
-Software is furnished to do so, subject to the following conditions:
-
-The above copyright notice and this permission notice shall be included in
-all copies or substantial portions of the Software.
-
 THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
@@ -22,21 +12,9 @@ CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
 TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-SPDX-License-Identifier: MIT
-
 [output]
 .SH "Uppercase License"
 .IX Header "Uppercase License"
-Permission is hereby granted, free of charge, to any person obtaining a
-copy of this software and associated documentation files (the \*(L"Software\*(R"),
-to deal in the Software without restriction, including without limitation
-the rights to use, copy, modify, merge, publish, distribute, sublicense,
-and/or sell copies of the Software, and to permit persons to whom the
-Software is furnished to do so, subject to the following conditions:
-.PP
-The above copyright notice and this permission notice shall be included in
-all copies or substantial portions of the Software.
-.PP
 \&\s-1THE SOFTWARE IS PROVIDED \*(L"AS IS\*(R", WITHOUT WARRANTY OF ANY KIND,
 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
@@ -44,5 +22,3 @@ IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
 CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
 TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.\s0
-.PP
-SPDX-License-Identifier: \s-1MIT\s0