[perl #131273] [REGRESSION] .pick and .pickpairs with negative amounts ( say ^5 .BagHash.pickpairs(-2.5) )

2017-07-05 Thread Jan-Olof Hendig via RT 
On Mon, 08 May 2017 12:01:56 -0700, alex.jakime...@gmail.com wrote:
> Not a big deal as it was changed yesterday, but still:
> 
> Code:
> say ^5 .BagHash.pick(-2.5)
> 
> Result:
> (3 0 1 4 2)
> 
> 
> Code:
> say ^5 .BagHash.pickpairs(-2.5)
> 
> Result:
> Unable to allocate an array of 18446744073709551614 elements
>   in block  at /tmp/p5a9fTqCqs line 1
> 
> 
> For the last one, bisectable points to
> https://github.com/rakudo/rakudo/commit/0f21f511c5631545293c3d8812f8dcf5addd988f
> 
> This ticket is probably already resolved by lizmat++, but I thought
> I'll file it anyway so that it doesn't fall through the cracks (seems
> like there are no tests for these cases?).

Tests added in https://github.com/perl6/roast/commit/d05653ace7. Resolving 
issue.

[perl #131273] [REGRESSION] .pick and .pickpairs with negative amounts ( say ^5 .BagHash.pickpairs(-2.5) )

2017-05-08 Thread via RT 
# New Ticket Created by  Aleks-Daniel Jakimenko-Aleksejev 
# Please include the string:  [perl #131273]
# in the subject line of all future correspondence about this issue. 
# https://rt.perl.org/Ticket/Display.html?id=131273 >


Not a big deal as it was changed yesterday, but still:

Code:
say ^5 .BagHash.pick(-2.5)

Result:
(3 0 1 4 2)


Code:
say ^5 .BagHash.pickpairs(-2.5)

Result:
Unable to allocate an array of 18446744073709551614 elements
  in block  at /tmp/p5a9fTqCqs line 1


For the last one, bisectable points to 
https://github.com/rakudo/rakudo/commit/0f21f511c5631545293c3d8812f8dcf5addd988f

This ticket is probably already resolved by lizmat++, but I thought I'll file 
it anyway so that it doesn't fall through the cracks (seems like there are no 
tests for these cases?).