[perl #131278] [BUG] bit shift broken at 32 bits

[via RT]

# New Ticket Created by  Curt Tilmes 
# Please include the string:  [perl #131278]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=131278 >


<curt_> m: my $i = -0x8000000000000000; say ($i div 2**12) == ($i +> 12) ??
'good' !! 'bad';
<camelia> rakudo-moar 6bb1b5: OUTPUT: «good␤»
<curt_> m: my $i = -0x8000000000000000; say ($i div 2**37) == ($i +> 37) ??
'good' !! 'bad';
<camelia> rakudo-moar 6bb1b5: OUTPUT: «bad␤»
<curt_> m: my $i = -0x8000000000000000; say ($i div 2**23) == ($i +> 23) ??
'good' !! 'bad';
<camelia> rakudo-moar 6bb1b5: OUTPUT: «good␤»
<curt_> m: my $i = -0x8000000000000000; say ($i div 2**42) == ($i +> 42) ??
'good' !! 'bad';
<camelia> rakudo-moar 6bb1b5: OUTPUT: «bad␤»
<TimToady> loks like a bug
<TimToady> at the 32-bit boundary
<TimToady> m: my $i = -0x8000000000000000; say ($i +> 31)
<camelia> rakudo-moar 6bb1b5: OUTPUT: «-4294967296␤»
<TimToady> m: my $i = -0x8000000000000000; say ($i +> 32)
<camelia> rakudo-moar 6bb1b5: OUTPUT: «-1␤»
<TimToady> please report bug