In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/ac15b3d6d72ab4715b650413eb5ab8ed5c6dc1a4?hp=9af62dcbf8dcfc51b4a96307e945369b28e0c215>
- Log ----------------------------------------------------------------- commit ac15b3d6d72ab4715b650413eb5ab8ed5c6dc1a4 Author: Jarkko Hietaniemi <[email protected]> Date: Sat Oct 22 15:53:38 2016 -0400 META.json regen (Porting/makemeta is not run by 'make regen', apparently) M META.json commit 5bc8afd5b5a672585a115f4556f6b734dae83184 Author: Jarkko Hietaniemi <[email protected]> Date: Sat Oct 22 12:58:53 2016 -0400 Scalar-List-Utils: regen customized.dat M t/porting/customized.dat commit 1476bbfa98fcd0efc3a4d1ccdd0b021ad7403986 Author: Jarkko Hietaniemi <[email protected]> Date: Sat Oct 22 12:58:21 2016 -0400 Scalar-List-Utils: customize Maintainers.pl M Porting/Maintainers.pl commit cdeaf44d582bf74f4c686dc58b288d8d33f25b95 Author: Jarkko Hietaniemi <[email protected]> Date: Sat Oct 22 12:00:00 2016 -0400 Scalar-List-Utils: customized VERSION bump M cpan/Scalar-List-Utils/lib/List/Util.pm M cpan/Scalar-List-Utils/lib/List/Util/XS.pm M cpan/Scalar-List-Utils/lib/Scalar/Util.pm M cpan/Scalar-List-Utils/lib/Sub/Util.pm commit 3ad3fb7edd9a5db1e0cf38ad50a84824ef641c39 Author: Jarkko Hietaniemi <[email protected]> Date: Sat Oct 22 08:42:00 2016 -0400 Scalar-List-Utils: netbsd-vax: no inf/nan M cpan/Scalar-List-Utils/t/uniq.t commit 5b15f36c4b1c5025dccabeef937495997e37e512 Author: Jarkko Hietaniemi <[email protected]> Date: Sat Oct 22 08:38:56 2016 -0400 Scalar-List-Utils: netbsd-vax: no inf/nan M cpan/Scalar-List-Utils/t/lln.t commit 8fdb0ccb70ac5e38e98894789de8aaff6d574656 Author: Jarkko Hietaniemi <[email protected]> Date: Sat Oct 22 12:55:39 2016 -0400 Math-Complex: regen customized.dat M t/porting/customized.dat commit 50e27233239735936890c62ce03f6f8ec4c163ee Author: Jarkko Hietaniemi <[email protected]> Date: Sat Oct 22 12:51:35 2016 -0400 Math-Complex: customize Maintainers.pl M Porting/Maintainers.pl M t/porting/customized.dat commit 2c9daa730856f5adfbe9928cf55c056319a02fe0 Author: Jarkko Hietaniemi <[email protected]> Date: Sat Oct 22 11:57:42 2016 -0400 Math-Complex: customized VERSION bump M cpan/Math-Complex/lib/Math/Complex.pm commit 33f0e0352bf84eeb475a6d6c2bf6eeb6e85e00d9 Author: Jarkko Hietaniemi <[email protected]> Date: Sat Oct 22 10:14:03 2016 -0400 Math-Complex: netbsd-vax: no inf M cpan/Math-Complex/t/Complex.t commit 9428c1c5aa477226eb269abef1d4ba0351a175c9 Author: Jarkko Hietaniemi <[email protected]> Date: Sat Oct 22 10:07:44 2016 -0400 Math-Complex: netbsd-vax: no inf, different range M cpan/Math-Complex/t/Trig.t commit 0720d38bf25c286f91566ea171ac36a14dec03b9 Author: Jarkko Hietaniemi <[email protected]> Date: Sat Oct 22 10:01:52 2016 -0400 Math-Complex: netbsd-vax: no inf M cpan/Math-Complex/lib/Math/Complex.pm commit 1a20ca9cbc96ce42f95a6f3ef78c2e88c6cfcacb Author: Jarkko Hietaniemi <[email protected]> Date: Sat Oct 22 12:48:48 2016 -0400 Math-BigInt: regen customized.dat M t/porting/customized.dat commit 94f73226be11b09ca74e0ba8b52b2b4121dbe173 Author: Jarkko Hietaniemi <[email protected]> Date: Sat Oct 22 12:45:40 2016 -0400 Math-BigInt: Maintainers.pl customization M Porting/Maintainers.pl commit 3298f15a5bc7eef49e4b3b1cda8b654097da634d Author: Jarkko Hietaniemi <[email protected]> Date: Sat Oct 22 11:58:28 2016 -0400 Math-BigInt: customized VERSION bump M cpan/Math-BigInt/lib/Math/BigInt.pm commit 08c1aed53c6840e7df1064125c605b00948eff2a Author: Jarkko Hietaniemi <[email protected]> Date: Sat Oct 22 08:58:30 2016 -0400 Math-BigInt: netbsd-vax: different float range M cpan/Math-BigInt/t/bigintpm.inc commit 22b3d2f502180d5492aade3aedbefaf56febece8 Author: Jarkko Hietaniemi <[email protected]> Date: Sat Oct 22 12:43:06 2016 -0400 JSON-PP: regen customized.dat M t/porting/customized.dat commit 9f6d27143441a1004f8d58db9eff27d99f56fff2 Author: Jarkko Hietaniemi <[email protected]> Date: Sat Oct 22 12:17:04 2016 -0400 JSON-PP: customize Maintainers.pl M Porting/Maintainers.pl commit b1cd7fa03bb79758b71d4627994a9e23a8f54465 Author: Jarkko Hietaniemi <[email protected]> Date: Sat Oct 22 15:48:08 2016 -0400 JSON-PP: reformat in preparation for next change M Porting/Maintainers.pl commit 99d42275b37d27e2287be450087e92e3fc788613 Author: Jarkko Hietaniemi <[email protected]> Date: Sat Oct 22 11:57:07 2016 -0400 JSON-PP: customized VERSION bump M cpan/JSON-PP/lib/JSON/PP.pm commit d7215d05c226cb51355503823b7bf099b956d04a Author: Jarkko Hietaniemi <[email protected]> Date: Sat Oct 22 10:29:01 2016 -0400 JSON-PP: netbsd-vax: different float range M cpan/JSON-PP/t/018_json_checker.t commit 28c20d1f80f0fb3646ac6bee63a5d4cfbca94818 Author: Jarkko Hietaniemi <[email protected]> Date: Sat Oct 22 10:21:07 2016 -0400 JSON-PP: netbsd-vax: different float range M cpan/JSON-PP/t/011_pc_expo.t ----------------------------------------------------------------------- Summary of changes: META.json | 2 +- Porting/Maintainers.pl | 23 ++++++++++++++-- cpan/JSON-PP/lib/JSON/PP.pm | 2 +- cpan/JSON-PP/t/011_pc_expo.t | 23 +++++++++++----- cpan/JSON-PP/t/018_json_checker.t | 4 ++- cpan/Math-BigInt/lib/Math/BigInt.pm | 2 +- cpan/Math-BigInt/t/bigintpm.inc | 4 +++ cpan/Math-Complex/lib/Math/Complex.pm | 42 ++++++++++++++++++++++-------- cpan/Math-Complex/t/Complex.t | 10 ++++++- cpan/Math-Complex/t/Trig.t | 30 ++++++++++++++------- cpan/Scalar-List-Utils/lib/List/Util.pm | 2 +- cpan/Scalar-List-Utils/lib/List/Util/XS.pm | 2 +- cpan/Scalar-List-Utils/lib/Scalar/Util.pm | 2 +- cpan/Scalar-List-Utils/lib/Sub/Util.pm | 2 +- cpan/Scalar-List-Utils/t/lln.t | 10 ++++--- cpan/Scalar-List-Utils/t/uniq.t | 5 ++++ t/porting/customized.dat | 15 ++++++++++- 17 files changed, 137 insertions(+), 43 deletions(-) diff --git a/META.json b/META.json index 21a6c8d..e8aa5cb 100644 --- a/META.json +++ b/META.json @@ -125,5 +125,5 @@ } }, "version" : "5.025007", - "x_serialization_backend" : "JSON::PP version 2.27400_01" + "x_serialization_backend" : "JSON::PP version 2.27400_02" } diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 7374702..3c0c0ab 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -700,8 +700,10 @@ use File::Glob qw(:case); 'DISTRIBUTION' => 'MAKAMAKA/JSON-PP-2.27400.tar.gz', 'FILES' => q[cpan/JSON-PP], 'CUSTOMIZED' => [ - # CVE-2016-1238 - qw( bin/json_pp lib/JSON/PP.pm ), + 'bin/json_pp', # CVE-2016-1238 + 'lib/JSON/PP.pm', # CVE-2016-1238, CPAN RT 118469 + 't/011_pc_expo.t', # CPAN RT 118469 + 't/018_json_checker.t', # CPAN RT 118469 ], }, @@ -769,6 +771,10 @@ use File::Glob qw(:case); 'Math::BigInt' => { 'DISTRIBUTION' => 'PJACKLAM/Math-BigInt-1.999726.tar.gz', 'FILES' => q[cpan/Math-BigInt], + 'CUSTOMIZED' => [ + 'lib/Math/BigInt.pm', # CPAN RT 118468 + 't/bigintpm.inc', # CPAN RT 118468 + ], 'EXCLUDED' => [ qr{^inc/}, qr{^examples/}, @@ -821,6 +827,11 @@ use File::Glob qw(:case); 'Math::Complex' => { 'DISTRIBUTION' => 'ZEFRAM/Math-Complex-1.59.tar.gz', 'FILES' => q[cpan/Math-Complex], + 'CUSTOMIZED' => [ + 'lib/Math/Complex.pm', # CPAN RT 118467 + 't/Complex.t', # CPAN RT 118467 + 't/Trig.t', # CPAN RT 118467 + ], 'EXCLUDED' => [ qw( t/pod.t t/pod-coverage.t @@ -1008,6 +1019,14 @@ use File::Glob qw(:case); 'Scalar-List-Utils' => { 'DISTRIBUTION' => 'PEVANS/Scalar-List-Utils-1.46.tar.gz', 'FILES' => q[cpan/Scalar-List-Utils], + 'CUSTOMIZED' => [ + 'lib/List/Util.pm', # CPAN RT 118470 + 'lib/List/Util/XS.pm', # CPAN RT 118470 + 'lib/Scalar/Util.pm', # CPAN RT 118470 + 'lib/Sub/Util.pm', # CPAN RT 118470 + 't/lln.t', # CPAN RT 118470 + 't/uniq.t', # CPAN RT 118470 + ], }, 'Search::Dict' => { diff --git a/cpan/JSON-PP/lib/JSON/PP.pm b/cpan/JSON-PP/lib/JSON/PP.pm index bbfb244..9337ce9 100644 --- a/cpan/JSON-PP/lib/JSON/PP.pm +++ b/cpan/JSON-PP/lib/JSON/PP.pm @@ -11,7 +11,7 @@ use Carp (); use B (); #use Devel::Peek; -$JSON::PP::VERSION = '2.27400_01'; +$JSON::PP::VERSION = '2.27400_02'; @JSON::PP::EXPORT = qw(encode_json decode_json from_json to_json); diff --git a/cpan/JSON-PP/t/011_pc_expo.t b/cpan/JSON-PP/t/011_pc_expo.t index 766a8fb..941d18d 100644 --- a/cpan/JSON-PP/t/011_pc_expo.t +++ b/cpan/JSON-PP/t/011_pc_expo.t @@ -38,10 +38,19 @@ else { } - -$js = q|[1.01e+67]|; # 30 -> 67 ... patched by H.Merijn Brand -$obj = $pc->decode($js); -is($obj->[0], 1.01e+67, 'digit 1.01e+67'); -$js = $pc->encode($obj); -like($js,qr/\[1.01[Ee]\+0?67\]/, 'digit 1.01e+67'); - +my $vax_float = (pack("d",1) =~ /^[\x80\x10]\x40/); + +if ($vax_float) { + # VAX has smaller float range. + $js = q|[1.01e+37]|; + $obj = $pc->decode($js); + is($obj->[0], eval '1.01e+37', 'digit 1.01e+37'); + $js = $pc->encode($obj); + like($js,qr/\[1.01[Ee]\+0?37\]/, 'digit 1.01e+37'); +} else { + $js = q|[1.01e+67]|; # 30 -> 67 ... patched by H.Merijn Brand + $obj = $pc->decode($js); + is($obj->[0], eval '1.01e+67', 'digit 1.01e+67'); + $js = $pc->encode($obj); + like($js,qr/\[1.01[Ee]\+0?67\]/, 'digit 1.01e+67'); +} diff --git a/cpan/JSON-PP/t/018_json_checker.t b/cpan/JSON-PP/t/018_json_checker.t index ff1f174..554084b 100644 --- a/cpan/JSON-PP/t/018_json_checker.t +++ b/cpan/JSON-PP/t/018_json_checker.t @@ -16,6 +16,8 @@ use JSON::PP; my $json = JSON::PP->new->utf8->max_depth(32)->canonical; +my $vax_float = (pack("d",1) =~ /^[\x80\x10]\x40/); + binmode DATA; my $num = 1; for (;;) { @@ -118,7 +120,7 @@ break"] "real": -9876.543210, "e": 0.123456789e-12, "E": 1.234567890E+34, - "": 23456789012E66, + "": 23456789012E20, "zero": 0, "one": 1, "space": " ", diff --git a/cpan/Math-BigInt/lib/Math/BigInt.pm b/cpan/Math-BigInt/lib/Math/BigInt.pm index d0d6b74..ae5c618 100644 --- a/cpan/Math-BigInt/lib/Math/BigInt.pm +++ b/cpan/Math-BigInt/lib/Math/BigInt.pm @@ -20,7 +20,7 @@ use warnings; use Carp (); -our $VERSION = '1.999726'; +our $VERSION = '1.999726_01'; $VERSION = eval $VERSION; our @ISA = qw(Exporter); diff --git a/cpan/Math-BigInt/t/bigintpm.inc b/cpan/Math-BigInt/t/bigintpm.inc index e996c69..d793ce1 100644 --- a/cpan/Math-BigInt/t/bigintpm.inc +++ b/cpan/Math-BigInt/t/bigintpm.inc @@ -564,9 +564,13 @@ is($x->bsstr(), '105e+13', # not 1.05e+15 $z = 1e+129; # definitely a float (may fail on UTS) # don't compare to $z, since some Perl versions stringify $z into something # like '1.e+129' or something equally ugly +SKIP:{ +my $vax_float = (pack("d",1) =~ /^[\x80\x10]\x40/); +skip("vax float range smaller", 1) if $vax_float; $x = $CLASS->new($z); is($x->bsstr(), '1e+129', qq|\$x = $CLASS->new($z); \$x->bsstr() = "1e+129"|); +} ############################################################################### # test for whitespace including newlines to be handled correctly diff --git a/cpan/Math-Complex/lib/Math/Complex.pm b/cpan/Math-Complex/lib/Math/Complex.pm index 19fb164..ea3e006 100644 --- a/cpan/Math-Complex/lib/Math/Complex.pm +++ b/cpan/Math-Complex/lib/Math/Complex.pm @@ -10,13 +10,32 @@ package Math::Complex; { use 5.006; } use strict; -our $VERSION = 1.59; +our $VERSION = 1.59_01; use Config; -our($Inf, $ExpInf); +our ($Inf, $ExpInf); +our ($vax_float, $has_inf, $has_nan); + BEGIN { - my %DBL_MAX = + $vax_float = (pack("d",1) =~ /^[\x80\x10]\x40/); + $has_inf = !$vax_float; + $has_nan = !$vax_float; + + unless ($has_inf) { + # For example in vax, there is no Inf, + # and just mentioning the DBL_MAX (1.70141183460469229e+38) + # causes SIGFPE. + + # These are pretty useless without a real infinity, + # but setting them makes for less warnings about their + # undefined values. + $Inf = "Inf"; + $ExpInf = "Inf"; + return; + } + + my %DBL_MAX = # These are IEEE 754 maxima. ( 4 => '1.70141183460469229e+38', 8 => '1.7976931348623157e+308', @@ -26,6 +45,7 @@ BEGIN { 12 => '1.1897314953572317650857593266280070162E+4932', 16 => '1.1897314953572317650857593266280070162E+4932', ); + my $nvsize = $Config{nvsize} || ($Config{uselongdouble} && $Config{longdblsize}) || $Config{doublesize}; @@ -40,7 +60,7 @@ BEGIN { if ($^O eq 'unicosmk') { $Inf = $DBL_MAX; } else { - local $SIG{FPE} = { }; + local $SIG{FPE} = sub { }; local $!; # We do want an arithmetic overflow, Inf INF inf Infinity. for my $t ( @@ -59,12 +79,12 @@ BEGIN { $Inf = $i; last; } - } + } $Inf = $DBL_MAX unless defined $Inf; # Oh well, close enough. die "Math::Complex: Could not get Infinity" unless $Inf > $BIGGER_THAN_THIS; - $ExpInf = exp(99999); - } + $ExpInf = eval 'exp(99999)'; + } # print "# On this machine, Inf = '$Inf'\n"; } @@ -190,9 +210,9 @@ sub _make { if (defined $p) { $p =~ s/^\+//; - $p =~ s/^(-?)inf$/"${1}9**9**9"/e; + $p =~ s/^(-?)inf$/"${1}9**9**9"/e if $has_inf; $q =~ s/^\+//; - $q =~ s/^(-?)inf$/"${1}9**9**9"/e; + $q =~ s/^(-?)inf$/"${1}9**9**9"/e if $has_inf; } return ($p, $q); @@ -215,8 +235,8 @@ sub _emake { if (defined $p) { $p =~ s/^\+//; $q =~ s/^\+//; - $p =~ s/^(-?)inf$/"${1}9**9**9"/e; - $q =~ s/^(-?)inf$/"${1}9**9**9"/e; + $p =~ s/^(-?)inf$/"${1}9**9**9"/e if $has_inf; + $q =~ s/^(-?)inf$/"${1}9**9**9"/e if $has_inf; } return ($p, $q); diff --git a/cpan/Math-Complex/t/Complex.t b/cpan/Math-Complex/t/Complex.t index e62cb88..9833131 100644 --- a/cpan/Math-Complex/t/Complex.t +++ b/cpan/Math-Complex/t/Complex.t @@ -8,6 +8,9 @@ use Math::Complex 1.54; +our $vax_float = (pack("d",1) =~ /^[\x80\x10]\x40/); +our $has_inf = !$vax_float; + my ($args, $op, $target, $test, $test_set, $try, $val, $zvalue, @set, @val); $test = 0; @@ -115,9 +118,14 @@ my $pii = cplx(0, pi); my $pip2 = cplx(pi/2, 0); my $pip4 = cplx(pi/4, 0); my $zero = cplx(0, 0); -my $inf = 9**9**9; '; +if ($has_inf) { + $constants .= <<'EOF'; +my $inf = 9**9**9; +EOF +} + push(@script, $constants); diff --git a/cpan/Math-Complex/t/Trig.t b/cpan/Math-Complex/t/Trig.t index 290a21e..31960bb 100644 --- a/cpan/Math-Complex/t/Trig.t +++ b/cpan/Math-Complex/t/Trig.t @@ -1,4 +1,4 @@ -#!./perl +#!./perl # # Regression tests for the Math::Trig package @@ -13,6 +13,9 @@ use Test::More tests => 153; use Math::Trig 1.18; use Math::Trig 1.18 qw(:pi Inf); +our $vax_float = (pack("d",1) =~ /^[\x80\x10]\x40/); +our $has_inf = !$vax_float; + my $pip2 = pi / 2; use strict; @@ -289,9 +292,14 @@ use Math::Trig ':radial'; ok(near($dst1, $dst2)); } +SKIP: { +# With netbsd-vax (or any vax) there is neither Inf, nor 1e40. +skip("different float range", 42) if $vax_float; +skip("no inf", 42) unless $has_inf; + print "# Infinity\n"; -my $BigDouble = 1e40; +my $BigDouble = eval '1e40'; # E.g. netbsd-alpha core dumps on Inf arith without this. local $SIG{FPE} = sub { }; @@ -318,17 +326,17 @@ ok(-Inf() / $BigDouble == -Inf()); print "# sinh/sech/cosh/csch/tanh/coth unto infinity\n"; -ok(near(sinh(100), 1.3441e+43, 1e-3)); -ok(near(sech(100), 7.4402e-44, 1e-3)); -ok(near(cosh(100), 1.3441e+43, 1e-3)); -ok(near(csch(100), 7.4402e-44, 1e-3)); +ok(near(sinh(100), eval '1.3441e+43', 1e-3)); +ok(near(sech(100), eval '7.4402e-44', 1e-3)); +ok(near(cosh(100), eval '1.3441e+43', 1e-3)); +ok(near(csch(100), eval '7.4402e-44', 1e-3)); ok(near(tanh(100), 1)); ok(near(coth(100), 1)); -ok(near(sinh(-100), -1.3441e+43, 1e-3)); -ok(near(sech(-100), 7.4402e-44, 1e-3)); -ok(near(cosh(-100), 1.3441e+43, 1e-3)); -ok(near(csch(-100), -7.4402e-44, 1e-3)); +ok(near(sinh(-100), eval '-1.3441e+43', 1e-3)); +ok(near(sech(-100), eval ' 7.4402e-44', 1e-3)); +ok(near(cosh(-100), eval ' 1.3441e+43', 1e-3)); +ok(near(csch(-100), eval '-7.4402e-44', 1e-3)); ok(near(tanh(-100), -1)); ok(near(coth(-100), -1)); @@ -346,6 +354,8 @@ cmp_ok(csch(-1e5), '==', 0); cmp_ok(tanh(-1e5), '==', -1); cmp_ok(coth(-1e5), '==', -1); +} + print "# great_circle_distance with small angles\n"; for my $e (qw(1e-2 1e-3 1e-4 1e-5)) { diff --git a/cpan/Scalar-List-Utils/lib/List/Util.pm b/cpan/Scalar-List-Utils/lib/List/Util.pm index 1f7d4c0..b8f81ba 100644 --- a/cpan/Scalar-List-Utils/lib/List/Util.pm +++ b/cpan/Scalar-List-Utils/lib/List/Util.pm @@ -15,7 +15,7 @@ our @EXPORT_OK = qw( all any first min max minstr maxstr none notall product reduce sum sum0 shuffle uniq uniqnum uniqstr pairs unpairs pairkeys pairvalues pairmap pairgrep pairfirst ); -our $VERSION = "1.46"; +our $VERSION = "1.46_01"; our $XS_VERSION = $VERSION; $VERSION = eval $VERSION; diff --git a/cpan/Scalar-List-Utils/lib/List/Util/XS.pm b/cpan/Scalar-List-Utils/lib/List/Util/XS.pm index 0c397ea..e93fe2b 100644 --- a/cpan/Scalar-List-Utils/lib/List/Util/XS.pm +++ b/cpan/Scalar-List-Utils/lib/List/Util/XS.pm @@ -3,7 +3,7 @@ use strict; use warnings; use List::Util; -our $VERSION = "1.46"; # FIXUP +our $VERSION = "1.46_01"; # FIXUP $VERSION = eval $VERSION; # FIXUP 1; diff --git a/cpan/Scalar-List-Utils/lib/Scalar/Util.pm b/cpan/Scalar-List-Utils/lib/Scalar/Util.pm index 1aec9f8..141ba63 100644 --- a/cpan/Scalar-List-Utils/lib/Scalar/Util.pm +++ b/cpan/Scalar-List-Utils/lib/Scalar/Util.pm @@ -17,7 +17,7 @@ our @EXPORT_OK = qw( dualvar isdual isvstring looks_like_number openhandle readonly set_prototype tainted ); -our $VERSION = "1.46"; +our $VERSION = "1.46_01"; $VERSION = eval $VERSION; require List::Util; # List::Util loads the XS diff --git a/cpan/Scalar-List-Utils/lib/Sub/Util.pm b/cpan/Scalar-List-Utils/lib/Sub/Util.pm index 1f90c50..a1c2c7a 100644 --- a/cpan/Scalar-List-Utils/lib/Sub/Util.pm +++ b/cpan/Scalar-List-Utils/lib/Sub/Util.pm @@ -15,7 +15,7 @@ our @EXPORT_OK = qw( subname set_subname ); -our $VERSION = "1.46"; +our $VERSION = "1.46_01"; $VERSION = eval $VERSION; require List::Util; # as it has the XS diff --git a/cpan/Scalar-List-Utils/t/lln.t b/cpan/Scalar-List-Utils/t/lln.t index df9ea3a..be928e4 100644 --- a/cpan/Scalar-List-Utils/t/lln.t +++ b/cpan/Scalar-List-Utils/t/lln.t @@ -10,9 +10,13 @@ foreach my $num (qw(1 -1 +1 1.0 +1.0 -1.0 -1.0e-12)) { ok(looks_like_number($num), "'$num'"); } -is(!!looks_like_number("Inf"), $] >= 5.006001, 'Inf'); -is(!!looks_like_number("Infinity"), $] >= 5.008, 'Infinity'); -is(!!looks_like_number("NaN"), $] >= 5.008, 'NaN'); +SKIP: { + my $vax_float = (pack("d",1) =~ /^[\x80\x10]\x40/); + skip("VAX does not have inf/nan", 3) if $vax_float; + is(!!looks_like_number("Inf"), $] >= 5.006001, 'Inf'); + is(!!looks_like_number("Infinity"), $] >= 5.008, 'Infinity'); + is(!!looks_like_number("NaN"), $] >= 5.008, 'NaN'); +} is(!!looks_like_number("foo"), '', 'foo'); is(!!looks_like_number(undef), '', 'undef'); is(!!looks_like_number({}), '', 'HASH Ref'); diff --git a/cpan/Scalar-List-Utils/t/uniq.t b/cpan/Scalar-List-Utils/t/uniq.t index 5a6925d..e47b407 100644 --- a/cpan/Scalar-List-Utils/t/uniq.t +++ b/cpan/Scalar-List-Utils/t/uniq.t @@ -70,6 +70,10 @@ is_deeply( [ uniqnum qw( 1 1.1 1.2 1.3 ) ], [ 1, 1.1, 1.2, 1.3 ], 'uniqnum distinguishes floats' ); +SKIP: { +my $vax_float = (pack("d",1) =~ /^[\x80\x10]\x40/); +skip("VAX does not have inf/nan", 1) if $vax_float; + # Hard to know for sure what an Inf is going to be. Lets make one my $Inf = 0 + 1E1000; my $NaN; @@ -78,6 +82,7 @@ $Inf **= 1000 while ( $NaN = $Inf - $Inf ) == $NaN; is_deeply( [ uniqnum 0, 1, 12345, $Inf, -$Inf, $NaN, 0, $Inf, $NaN ], [ 0, 1, 12345, $Inf, -$Inf, $NaN ], 'uniqnum preserves the special values of +-Inf and Nan' ); +} { my $maxint = ~0; diff --git a/t/porting/customized.dat b/t/porting/customized.dat index ca39b48..db4d1bf 100644 --- a/t/porting/customized.dat +++ b/t/porting/customized.dat @@ -34,8 +34,15 @@ IO-Compress cpan/IO-Compress/lib/IO/Uncompress/Inflate.pm c75aa1ec1f2a6138ef9ae6 IO-Compress cpan/IO-Compress/lib/IO/Uncompress/RawInflate.pm 8f30a77bcda7123300ef5a8d02c2160ebb72f013 IO-Compress cpan/IO-Compress/lib/IO/Uncompress/Unzip.pm 321a55011a1f11fe73b005e33942eb27fed6d046 JSON::PP cpan/JSON-PP/bin/json_pp a7b8de6c201ef177ee82624ee4ca6a47cc1a3b4f -JSON::PP cpan/JSON-PP/lib/JSON/PP.pm c8762a306740d0b32c099faf7118f2c1a391d9db +JSON::PP cpan/JSON-PP/lib/JSON/PP.pm 86f697dae482106270fdd659b18c95a54af764ba +JSON::PP cpan/JSON-PP/t/011_pc_expo.t e4c896d5f06ca380ddb6b4d6cd5714ea3003ada6 +JSON::PP cpan/JSON-PP/t/018_json_checker.t 6c3615e1a55f76b1635c62d3d36c5686a3ae8d30 Locale::Maketext::Simple cpan/Locale-Maketext-Simple/lib/Locale/Maketext/Simple.pm 57ed38905791a17c150210cd6f42ead22a7707b6 +Math::BigInt cpan/Math-BigInt/lib/Math/BigInt.pm cf3d21a81acc2210c08f8b7fd00c41e17c47aaee +Math::BigInt cpan/Math-BigInt/t/bigintpm.inc db9a17f607c95b9888df373a02f80ae9e507a199 +Math::Complex cpan/Math-Complex/lib/Math/Complex.pm 198ea6c6c584f5ea79a0fd7e9d411d0878f3b2af +Math::Complex cpan/Math-Complex/t/Complex.t 4f307ed6fc59f1e5fb0e6b11103fc631b6bdb335 +Math::Complex cpan/Math-Complex/t/Trig.t 2682526e23a161d54732c2a66393fe4a234d1865 Memoize cpan/Memoize/Memoize.pm 902092ff91cdec9c7b4bd06202eb179e1ce26ca2 Net::Ping dist/Net-Ping/t/001_new.t 521264cd85cfa06ecaa29ae28cdd7728d58da6f1 Net::Ping dist/Net-Ping/t/010_pingecho.t 2e7340ee0e9f6119b889016fc8b89e6bcd4a8fe2 @@ -43,6 +50,12 @@ Pod::Checker cpan/Pod-Checker/t/pod/contains_bad_pod.xr 73538fd80dfe6e19ad561fe0 Pod::Checker cpan/Pod-Checker/t/pod/selfcheck.t 8ce3cfd38e4b9bcf5bc7fe7f2a14195e49aed7d8 Pod::Checker cpan/Pod-Checker/t/pod/testcmp.pl a0cd5c8eca775c7753f4464eee96fa916e3d8a16 Pod::Checker cpan/Pod-Checker/t/pod/testpchk.pl b2072c7f4379fd050e15424175d7cac5facf5b3b +Scalar-List-Utils cpan/Scalar-List-Utils/lib/List/Util.pm ac567cf04ae11df293e4a149ec91eb439c9a2c3a +Scalar-List-Utils cpan/Scalar-List-Utils/lib/List/Util/XS.pm ae3449ce3048008cba6b93c0dd596a1d8d84a866 +Scalar-List-Utils cpan/Scalar-List-Utils/lib/Scalar/Util.pm 9b684e9c075d2eba9b3d445c12b6ea990c46ce31 +Scalar-List-Utils cpan/Scalar-List-Utils/lib/Sub/Util.pm 2b3de8060dca2bb510cd19db7a6bed0ab89ea531 +Scalar-List-Utils cpan/Scalar-List-Utils/t/lln.t b7148c7f1cd9c70fd21d8153542b6d3de2b655ad +Scalar-List-Utils cpan/Scalar-List-Utils/t/uniq.t 293e86c44e2e2e32e5a8557d1c0dc207823de231 Socket cpan/Socket/Socket.pm 98e38176d745c38282907f391c077298f5a3d0ba Socket cpan/Socket/Socket.xs edd4fed212785f11c5c2095a75941dad27d586d9 Test::Harness cpan/Test-Harness/bin/prove 9b2866928cb1125de2c68f9773b25723e02c54c0 -- Perl5 Master Repository
