From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 4 Sep 1999 18:04:47 +0000 (+0000)
Subject: use integer on the problematic subtest.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d3a6a6fe5a9e3ef67f27330d1df0f6940f52d6a2;p=p5sagit%2Fp5-mst-13.2.git

use integer on the problematic subtest.

p4raw-id: //depot/cfgperl@4075
---

diff --git a/t/op/misc.t b/t/op/misc.t
index 46b9a04..3c385cd 100755
--- a/t/op/misc.t
+++ b/t/op/misc.t
@@ -59,21 +59,12 @@ $a = ":="; split /($a)/o, "a:=b:=c"; print "@_"
 EXPECT
 a := b := c
 ########
-eval { $q = pack "q", 0 };
-if ($@) {
+use integer;
 $cusp = ~0 ^ (~0 >> 1);
 $, = " ";
 print +($cusp - 1) % 8, $cusp % 8, -$cusp % 8, ($cusp + 1) % 8, "!\n";
-} else {
-# We are on a 64-bit platform: fake it.
-# (If we have long doubles we might not need to fake it.)
-# Background: the $cusp will get converted from a UV into an NV because of
-# the subtraction and addition.  Taking away or adding 1 from such a large
-# NV doesn't actually change the NV, so the modulo fails.
-print "7 0 0 1 !\n";
-}
 EXPECT
-7 0 0 1 !
+-1 0 0 1 !
 ########
 $foo=undef; $foo->go;
 EXPECT