[perl #127210] uint behaves like signed int in CUnion

[via RT]

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


Got:

    > my $c = Overlap.new(u32 => 1234567);
    Overlap.new(u32 => 1234567, u16 => -10617, u8 => -121)

Expected:

    Overlap.new(u32 => 1234567, u16 => 54919, u8 => 135);

Tests:

    class Overlap is repr('CUnion') {
        has uint32 $.u32;
        has uint16 $.u16;
        has uint8  $.u8;
    }
    my $overlap = Overlap.new(u32 => 1234567);
    is $overlap.u16, 54919, "uint16 in union is unsigned";
    is $overlap.u8,    135,  "uint8 in union is unsigned";

-- 
Met vriendelijke groet, // Kind regards, // Korajn salutojn,

Juerd Waalboer  <ju...@tnx.nl>
TNX