r64287 - in /branches/upstream/libdata-float-perl/current: Changes META.yml SIGNATURE lib/Data/Float.pm t/class.t t/const.t t/copysign.t t/hex.t t/id_cmp.t t/nextafter.t t/parts.t t/pow2.t
angelabad-guest at users.alioth.debian.org
angelabad-guest at users.alioth.debian.org
Tue Oct 26 21:57:35 UTC 2010
Author: angelabad-guest
Date: Tue Oct 26 21:57:24 2010
New Revision: 64287
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=64287
Log:
[svn-upgrade] new version libdata-float-perl (0.011)
Modified:
branches/upstream/libdata-float-perl/current/Changes
branches/upstream/libdata-float-perl/current/META.yml
branches/upstream/libdata-float-perl/current/SIGNATURE
branches/upstream/libdata-float-perl/current/lib/Data/Float.pm
branches/upstream/libdata-float-perl/current/t/class.t
branches/upstream/libdata-float-perl/current/t/const.t
branches/upstream/libdata-float-perl/current/t/copysign.t
branches/upstream/libdata-float-perl/current/t/hex.t
branches/upstream/libdata-float-perl/current/t/id_cmp.t
branches/upstream/libdata-float-perl/current/t/nextafter.t
branches/upstream/libdata-float-perl/current/t/parts.t
branches/upstream/libdata-float-perl/current/t/pow2.t
Modified: branches/upstream/libdata-float-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-float-perl/current/Changes?rev=64287&op=diff
==============================================================================
--- branches/upstream/libdata-float-perl/current/Changes (original)
+++ branches/upstream/libdata-float-perl/current/Changes Tue Oct 26 21:57:24 2010
@@ -1,3 +1,9 @@
+version 0.011; 2010-10-21
+
+ * port to Perl 5.13.6, where changed behaviour of signed zeroes in
+ Perl arithmetic broke nextdown() and nextafter() and caused false
+ test failures for several other functions
+
version 0.010; 2010-07-26
* use simpler "parent" pragma in place of "base"
Modified: branches/upstream/libdata-float-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-float-perl/current/META.yml?rev=64287&op=diff
==============================================================================
--- branches/upstream/libdata-float-perl/current/META.yml (original)
+++ branches/upstream/libdata-float-perl/current/META.yml Tue Oct 26 21:57:24 2010
@@ -24,7 +24,7 @@
provides:
Data::Float:
file: lib/Data/Float.pm
- version: 0.010
+ version: 0.011
requires:
Carp: 0
Exporter: 0
@@ -36,4 +36,4 @@
warnings: 0
resources:
license: http://dev.perl.org/licenses/
-version: 0.010
+version: 0.011
Modified: branches/upstream/libdata-float-perl/current/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-float-perl/current/SIGNATURE?rev=64287&op=diff
==============================================================================
--- branches/upstream/libdata-float-perl/current/SIGNATURE (original)
+++ branches/upstream/libdata-float-perl/current/SIGNATURE Tue Oct 26 21:57:24 2010
@@ -1,5 +1,5 @@
This file contains message digests of all files listed in MANIFEST,
-signed via the Module::Signature module, version 0.64.
+signed via the Module::Signature module, version 0.66.
To verify the content in this distribution, first make sure you have
Module::Signature installed, then type:
@@ -16,26 +16,26 @@
SHA1 a647ee7a0b367a12ea5f5b76ebb149ce25ba0390 .cvsignore
SHA1 22c0b8256338e7f077f6311527c006ca9acfc75b Build.PL
-SHA1 6765395ee1e984c27ba75f40e6a165df88a55c16 Changes
+SHA1 83252a0629b659b0d54aa4dc2a40aa0128970bda Changes
SHA1 a0baf8aa5977fabc6ba24e0004ecfb9d1d4b6849 MANIFEST
-SHA1 27c8fc9c18ece0d13e2d89948c72e33e46cdb822 META.yml
+SHA1 64688ccd23f2f6f4b4043920bcd63332f376c58c META.yml
SHA1 caae608231ffe78390c76451ade51a7cfc87a9f9 Makefile.PL
SHA1 754fa448a4bc61e5eedd11119b00abaf18caf906 README
-SHA1 838a0af84b5054cd4046145f0893ecfaec9741c9 lib/Data/Float.pm
-SHA1 46a701139af33ceb60bdcd6bdd098bba93c9da89 t/class.t
-SHA1 8ff388995f49bfa234eb7667943930db20d71d5d t/const.t
-SHA1 356d01d2baf86af1890e9acc29129361bf62cbe1 t/copysign.t
-SHA1 e9b6488e8989b4816cc9c44c9e62da415c4ada2c t/hex.t
-SHA1 71efb1ee1aac4f1c252b9f3886148a6adc3e3b32 t/id_cmp.t
-SHA1 c9d4a7d0d6156649ec6a9ac6281a84999e3b4ba7 t/nextafter.t
-SHA1 e00cf1571fee7e4f0bc753b05366e043abf0d4aa t/parts.t
+SHA1 02a06dd17ed4f961a287d47a6f0ce45f42f7910b lib/Data/Float.pm
+SHA1 1108747d9aec62d4eadd34403fa59f1c54df153f t/class.t
+SHA1 eba7f4eeb285767f6546eebdca9cd07011b4dd51 t/const.t
+SHA1 a4ee7a6b431b6e5ee3872ff2dba90663c28148d7 t/copysign.t
+SHA1 34457366a44bf157a3ae868ac68314c1516b8b42 t/hex.t
+SHA1 cee994f9596999d49c9ec8b89c6f78afbcc16198 t/id_cmp.t
+SHA1 9230c3e8c1e76d8534092c9117c0584b80774c9b t/nextafter.t
+SHA1 01f3111f0df11ae3b7be3672c99abd0d74b9ba72 t/parts.t
SHA1 904d9a4f76525e2303e4b0c168c68230f223c8de t/pod_cvg.t
SHA1 65c75abdef6f01a5d1588a307f2ddfe2333dc961 t/pod_syn.t
-SHA1 8181874d707c8c1d591df349ab200f99e6613446 t/pow2.t
+SHA1 3369ba662006149c6e5a089e6f2a440367f6df64 t/pow2.t
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.9 (GNU/Linux)
-iEYEARECAAYFAkxN7XoACgkQOV9mt2VyAVFmaACbBZ/ectD8JVhCG+BxiDyNzmH/
-jG4AoIet52EsEvFx5LP3lLwVIV3v0s1O
-=4G5m
+iEYEARECAAYFAkzAwEkACgkQOV9mt2VyAVFkngCcCSdTXRXrhugB/rQkhXwd7Z9g
+VVgAn3K6g+mf1bmaFCnNAgrf5rv2t2eh
+=Zw1g
-----END PGP SIGNATURE-----
Modified: branches/upstream/libdata-float-perl/current/lib/Data/Float.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-float-perl/current/lib/Data/Float.pm?rev=64287&op=diff
==============================================================================
--- branches/upstream/libdata-float-perl/current/lib/Data/Float.pm (original)
+++ branches/upstream/libdata-float-perl/current/lib/Data/Float.pm Tue Oct 26 21:57:24 2010
@@ -178,7 +178,7 @@
use Carp qw(croak);
-our $VERSION = "0.010";
+our $VERSION = "0.011";
use parent "Exporter";
our @EXPORT_OK = qw(
@@ -518,7 +518,8 @@
$neg_zero = -0.0;
my $tzero = -0.0;
{ no warnings "void"; $tzero == $tzero; }
- if(sprintf("%e", - -$tzero) =~ /\A-/) {
+ my $ntzero = -$tzero;
+ if(sprintf("%e", -$ntzero) =~ /\A-/) {
_mk_constant("pos_zero", $pos_zero);
_mk_constant("neg_zero", $neg_zero);
} else {
@@ -1306,7 +1307,7 @@
=cut
-sub nextdown($) { -nextup(-$_[0]) }
+sub nextdown($) { -nextup(-(my $n = $_[0])) }
=item nextafter(VALUE, DIRECTION)
Modified: branches/upstream/libdata-float-perl/current/t/class.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-float-perl/current/t/class.t?rev=64287&op=diff
==============================================================================
--- branches/upstream/libdata-float-perl/current/t/class.t (original)
+++ branches/upstream/libdata-float-perl/current/t/class.t Tue Oct 26 21:57:24 2010
@@ -52,7 +52,7 @@
} }
}
-sub zpat($) { my($z) = @_; sprintf("%+.f%+.f%+.f", $z, -$z, - -$z) }
+sub zpat($) { my($z) = @_; my $nz = -$z; sprintf("%+.f%+.f%+.f",$z,$nz,-$nz) }
foreach(\&float_class, \&float_is_normal, \&float_is_subnormal,
\&float_is_nzfinite, \&float_is_zero, \&float_is_finite,
\&float_is_infinite, \&float_is_nan
Modified: branches/upstream/libdata-float-perl/current/t/const.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-float-perl/current/t/const.t?rev=64287&op=diff
==============================================================================
--- branches/upstream/libdata-float-perl/current/t/const.t (original)
+++ branches/upstream/libdata-float-perl/current/t/const.t Tue Oct 26 21:57:24 2010
@@ -1,7 +1,7 @@
use warnings;
use strict;
-use Test::More tests => 29;
+use Test::More tests => 30;
BEGIN { use_ok "Data::Float", qw(
have_signed_zero have_subnormal have_infinite have_nan
@@ -49,13 +49,16 @@
ok +(min_finite * 0.5) * 2.0 != min_finite;
+sub zpat($) { my($z) = @_; my $nz = -$z; sprintf("%+.f%+.f%+.f",$z,$nz,-$nz) }
+
if(have_signed_zero) {
no strict "refs";
- is sprintf("%+.f%+.f%+.f", 0.0, -0.0, - -0.0), "+0-0+0";
+ is zpat(0.0), "+0-0+0";
+ is zpat(-0.0), "-0+0-0";
my $pos_zero = &{"Data::Float::pos_zero"};
my $neg_zero = &{"Data::Float::neg_zero"};
- is sprintf("%+.f%+.f", $pos_zero, -$pos_zero), "+0-0";
- is sprintf("%+.f%+.f", $neg_zero, -$neg_zero), "-0+0";
+ is zpat($pos_zero), "+0-0+0";
+ is zpat($neg_zero), "-0+0-0";
{
no warnings "void";
$pos_zero == $pos_zero;
@@ -63,10 +66,11 @@
}
$pos_zero = &{"Data::Float::pos_zero"};
$neg_zero = &{"Data::Float::neg_zero"};
- is sprintf("%+.f%+.f", $pos_zero, -$pos_zero), "+0-0";
- is sprintf("%+.f%+.f", $neg_zero, -$neg_zero), "-0+0";
+ is zpat($pos_zero), "+0-0+0";
+ is zpat($neg_zero), "-0+0-0";
} else {
- is sprintf("%+.f%+.f%+.f", 0.0, -0.0, - -0.0), "+0+0+0";
+ is zpat(0.0), "+0+0+0";
+ is zpat(-0.0), "+0+0+0";
SKIP: { skip "no signed zeroes", 4; }
}
Modified: branches/upstream/libdata-float-perl/current/t/copysign.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-float-perl/current/t/copysign.t?rev=64287&op=diff
==============================================================================
--- branches/upstream/libdata-float-perl/current/t/copysign.t (original)
+++ branches/upstream/libdata-float-perl/current/t/copysign.t Tue Oct 26 21:57:24 2010
@@ -13,7 +13,7 @@
ok copysign(+1.2, -5) == -1.2;
ok copysign(-1.2, -5) == -1.2;
-sub zpat($) { my($z) = @_; sprintf("%+.f%+.f%+.f", $z, -$z, - -$z) }
+sub zpat($) { my($z) = @_; my $nz = -$z; sprintf("%+.f%+.f%+.f",$z,$nz,-$nz) }
my($z, $r);
$z = 0; $r = copysign($z, +5);
Modified: branches/upstream/libdata-float-perl/current/t/hex.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-float-perl/current/t/hex.t?rev=64287&op=diff
==============================================================================
--- branches/upstream/libdata-float-perl/current/t/hex.t (original)
+++ branches/upstream/libdata-float-perl/current/t/hex.t Tue Oct 26 21:57:24 2010
@@ -91,7 +91,7 @@
ok hex_float(float_hex($_)) == $_;
}
-sub zpat($) { my($z) = @_; sprintf("%+.f%+.f%+.f", $z, -$z, - -$z) }
+sub zpat($) { my($z) = @_; my $nz = -$z; sprintf("%+.f%+.f%+.f",$z,$nz,-$nz) }
my $z;
$z = 0; is float_hex($z), "+0.0"; is zpat($z), "+0+0+0";
Modified: branches/upstream/libdata-float-perl/current/t/id_cmp.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-float-perl/current/t/id_cmp.t?rev=64287&op=diff
==============================================================================
--- branches/upstream/libdata-float-perl/current/t/id_cmp.t (original)
+++ branches/upstream/libdata-float-perl/current/t/id_cmp.t Tue Oct 26 21:57:24 2010
@@ -24,7 +24,7 @@
$_ = $_->() if ref($_) eq "CODE";
}
-sub zpat($) { my($z) = @_; sprintf("%+.f%+.f%+.f", $z, -$z, - -$z) }
+sub zpat($) { my($z) = @_; my $nz = -$z; sprintf("%+.f%+.f%+.f",$z,$nz,-$nz) }
for(my $ia = @values; $ia--; ) {
for(my $ib = @values; $ib--; ) {
Modified: branches/upstream/libdata-float-perl/current/t/nextafter.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-float-perl/current/t/nextafter.t?rev=64287&op=diff
==============================================================================
--- branches/upstream/libdata-float-perl/current/t/nextafter.t (original)
+++ branches/upstream/libdata-float-perl/current/t/nextafter.t Tue Oct 26 21:57:24 2010
@@ -26,7 +26,7 @@
ok nextup(max_number) == max_number;
ok nextdown(-max_number()) == -max_number();
-sub zpat($) { my($z) = @_; sprintf("%+.f%+.f%+.f", $z, -$z, - -$z) }
+sub zpat($) { my($z) = @_; my $nz = -$z; sprintf("%+.f%+.f%+.f",$z,$nz,-$nz) }
my($za, $zb, $r);
if(have_signed_zero) {
Modified: branches/upstream/libdata-float-perl/current/t/parts.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-float-perl/current/t/parts.t?rev=64287&op=diff
==============================================================================
--- branches/upstream/libdata-float-perl/current/t/parts.t (original)
+++ branches/upstream/libdata-float-perl/current/t/parts.t Tue Oct 26 21:57:24 2010
@@ -9,7 +9,7 @@
float_sign signbit float_parts
); }
-sub zpat($) { my($z) = @_; sprintf("%+.f%+.f%+.f", $z, -$z, - -$z) }
+sub zpat($) { my($z) = @_; my $nz = -$z; sprintf("%+.f%+.f%+.f",$z,$nz,-$nz) }
sub test_sign($$$) {
my($val, $sign, $is_zero) = @_;
my $tval = $val;
Modified: branches/upstream/libdata-float-perl/current/t/pow2.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-float-perl/current/t/pow2.t?rev=64287&op=diff
==============================================================================
--- branches/upstream/libdata-float-perl/current/t/pow2.t (original)
+++ branches/upstream/libdata-float-perl/current/t/pow2.t Tue Oct 26 21:57:24 2010
@@ -18,7 +18,7 @@
ok pow2(min_finite_exp) != 0;
eval { pow2(min_finite_exp-1); }; like $@, qr/\Aexponent [^ \n]+ out of range/;
-sub zpat($) { my($z) = @_; sprintf("%+.f%+.f%+.f", $z, -$z, - -$z) }
+sub zpat($) { my($z) = @_; my $nz = -$z; sprintf("%+.f%+.f%+.f",$z,$nz,-$nz) }
foreach(0, +0.0, -0.0) {
my $z = $_;
my $m = mult_pow2($z, 5);
More information about the Pkg-perl-cvs-commits
mailing list