diff options
| author | system PRIVILEGED account <root@peano.zk3.dec.com> | 2000-08-21 14:41:15 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-22 17:06:26 +0000 |
| commit | 44e147dea8896d18032c55a14e77f24dabd1a153 (patch) | |
| tree | 49899782ea4a62aaeaa1731801151152cf115cd3 /t | |
| parent | 34a586d6104a82bcf4a955ad0e0e1d0e84c9ccae (diff) | |
| download | perl-44e147dea8896d18032c55a14e77f24dabd1a153.tar.gz | |
Long double fixes from Spider Boardman.
Subject: [ID 20000821.014] Not OK: perl v5.7.0 +SUIDMAIL +DEVEL6756 on alpha-dec_osf 5.1 (UNINSTALLED)
Message-Id: <200008212241.SAA0000014255@peano.zk3.dec.com>
p4raw-id: //depot/perl@6773
Diffstat (limited to 't')
| -rwxr-xr-x | t/lib/bigfltpm.t | 8 | ||||
| -rw-r--r-- | t/lib/st-06compat.t | 3 |
2 files changed, 7 insertions, 4 deletions
diff --git a/t/lib/bigfltpm.t b/t/lib/bigfltpm.t index 971b4ee90f..20816940c4 100755 --- a/t/lib/bigfltpm.t +++ b/t/lib/bigfltpm.t @@ -249,10 +249,10 @@ $Math::BigFloat::rnd_mode = 'even' -6.23:-1:/-6.2(?:0{5}\d+)? +6.27:-1:/6.(?:3|29{5}\d+) -6.27:-1:/-6.(?:3|29{5}\d+) -+6.25:-1:/6.3(?:0{5}\d+)? --6.25:-1:/-6.3(?:0{5}\d+)? -+6.35:-1:/6.(?:3|39{5}\d+) --6.35:-1:/-6.(?:3|39{5}\d+) ++6.25:-1:/6.(?:3(?:0{5}\d+)?|29{5}\d+) +-6.25:-1:/-6.(?:3(?:0{5}\d+)?|29{5}\d+) ++6.35:-1:/6.(?:3|39{5}\d+|29{8}\d+) +-6.35:-1:/-6.(?:3|39{5}\d+|29{8}\d+) -0.0065:-1:0 -0.0065:-2:/-0\.01|-1e-02 -0.0065:-3:/-0\.007|-7e-03 diff --git a/t/lib/st-06compat.t b/t/lib/st-06compat.t index 7c89c836f0..6ae0641b26 100644 --- a/t/lib/st-06compat.t +++ b/t/lib/st-06compat.t @@ -101,6 +101,9 @@ ok 3, ref $y eq 'ROOT'; $Storable::canonical = 1; # Prevent "used once" warning $Storable::canonical = 1; +# Allow for long double string conversions. +$y->{num}->[3] += 0; +$r->{num}->[3] += 0; ok 4, nfreeze($y) eq nfreeze($r); ok 5, $y->ref->{key1} eq 'val1'; |