This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
IRIX failure with long doubles.
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 6 Mar 2002 04:01:27 +0000 (04:01 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 6 Mar 2002 04:01:27 +0000 (04:01 +0000)
p4raw-id: //depot/perl@15058

t/op/pack.t

index 0782d46..6b81236 100755 (executable)
@@ -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});