EXPECT
a := b := c
########
-eval { $q = pack "q", 0 };
-if ($@) {
$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 !
########
########
%@x=0;
EXPECT
-Can't modify hash deref in repeat at - line 1, near "0;"
+Can't modify hash dereference in repeat (x) at - line 1, near "0;"
Execution of - aborted due to compilation errors.
########
$_="foo";