This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Long double fixes from Spider Boardman.
authorsystem PRIVILEGED account <root@peano.zk3.dec.com>
Mon, 21 Aug 2000 18:41:15 +0000 (14:41 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 22 Aug 2000 17:06:26 +0000 (17:06 +0000)
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

t/lib/bigfltpm.t
t/lib/st-06compat.t

index 971b4ee..2081694 100755 (executable)
@@ -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
index 7c89c83..6ae0641 100644 (file)
@@ -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';