From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 6 Mar 2002 04:01:27 +0000 (+0000)
Subject: IRIX failure with long doubles.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3f7e3417b4d367c575b084ae86653a04c8b1a182;p=p5sagit%2Fp5-mst-13.2.git

IRIX failure with long doubles.

p4raw-id: //depot/perl@15058
---

diff --git a/t/op/pack.t b/t/op/pack.t
index 0782d46..6b81236 100755
--- a/t/op/pack.t
+++ b/t/op/pack.t
@@ -840,7 +840,9 @@ is(scalar unpack('A /A /A Z20', '3004bcde'), 'bcde');
   ok( length $p);
   my @b = unpack "$t X[$t] $t", $p;	# Extract, step back, extract again
   is(scalar @b, 2 * scalar @a);
-  is("@b", "@a @a");
+  $b = "@b";
+  $b =~ s/(?:17000+|16999+)\d+(e-45) /17$1 /gi; # stringification is gamble
+  is($b, "@a @a");
 
   my $warning;
   local $SIG{__WARN__} = sub {
@@ -850,7 +852,9 @@ is(scalar unpack('A /A /A Z20', '3004bcde'), 'bcde');
 
   is($warning, undef);
   is(scalar @b, scalar @a);
-  is("@b", "@a");
+  $b = "@b";
+  $b =~ s/(?:17000+|16999+)\d+(e-45) /17$1 /gi; # stringification is gamble
+  is($b, "@a");
 }
 
 is(length(pack("j", 0)), $Config{ivsize});