# New Ticket Created by Patrick R. Michaud
# Please include the string: [perl #59788]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=59788 >
The inplace shift left and inplace shift right opcodes
are failing after the mmd branch merge. Here's the test
code:
$ cat x.pir
.sub main :main
$P0 = new 'Integer'
$P0 = 1
$P1 = $P0 << 3
say $P1
$P0 <<= 3
say $P0
.end
$ ./parrot x.pir
8
1
$
Both should produce the same value (8), but don't.
Pm
