[perl #76238] Bool.pick always returns false.

[via RT]

# New Ticket Created by  lemb...@wrkhors.com 
# Please include the string:  [perl #76238]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=76238 >


Using the June release:

$ perl6 --version
This compiler is built with the Parrot Compiler Toolkit, parrot revision 47640.

Attempting to print some random numers via Bool.pick
gives no output:

    #!/opt/parrot/bin/perl6

    use v6;

    .say if Bool.pick for ^100;

    $ perl6 hak
    $

The same basic process using (0..1) does work:

    $ cat hak
    #!/opt/parrot/bin/perl6

    use v6;

    .say if (^2).pick for ^100;

    $ perl6 hak
    0
    2
    3
    4
    <snip>


I get the same result from the command line with a file
or the perl6 interactive prompt.

-- 
Steven Lembark                                          85-09 90th St.
Workhorse Computing                               Woodhaven, NY, 11421
lemb...@wrkhors.com                                    +1 888 359 3508