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

diff --git a/t/lib/bigfltpm.t b/t/lib/bigfltpm.t
index 971b4ee..2081694 100755 (executable)
--- 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 7c89c83..6ae0641 100644 (file)
--- 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';