[perl #126550] The Seq returned from RANGE.roll(*) does not know it's infinite

[via RT]

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


These works fine:

    my @a = Bool.roll(*);
    my @b = (2, 4, 6).roll(*);

This hangs indefinitely:

    my @c = (1..6).roll(*);