diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-09-05 21:30:54 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-09-05 21:30:54 +0000 |
| commit | d0ba1bd2be06981094763112f29fa147de3d9441 (patch) | |
| tree | 54df2abe9d9e6111141ee022c615159ab798acad /t/op/misc.t | |
| parent | 33841f1e9a1edda79baff1d226804cb15d362111 (diff) | |
| download | perl-d0ba1bd2be06981094763112f29fa147de3d9441.tar.gz | |
Time is not yet ripe.
p4raw-id: //depot/cfgperl@4079
Diffstat (limited to 't/op/misc.t')
| -rwxr-xr-x | t/op/misc.t | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/t/op/misc.t b/t/op/misc.t index 3c385cd4d3..926c7f38d0 100755 --- a/t/op/misc.t +++ b/t/op/misc.t @@ -59,12 +59,11 @@ $a = ":="; split /($a)/o, "a:=b:=c"; print "@_" EXPECT a := b := c ######## -use integer; $cusp = ~0 ^ (~0 >> 1); $, = " "; print +($cusp - 1) % 8, $cusp % 8, -$cusp % 8, ($cusp + 1) % 8, "!\n"; EXPECT --1 0 0 1 ! +7 0 0 1 ! ######## $foo=undef; $foo->go; EXPECT |