I just opened this so we don't lose it:
http://rt.perl.org/rt3/Ticket/Display.html?id=76834
Thanks.
On Thu, Jul 29, 2010 at 9:44 AM, Ovid
<publiustemp-perl6compil...@yahoo.com> wrote:
> I don't know if this is reported (I can't find a bug report for it).
>
> I just downloaded and compiled Rakudo Star.
>
> $ uname -a
> Linux localhost.bbc.co.uk 2.6.32-24-generic #38-Ubuntu SMP Mon Jul 5 09:22:14
> UTC 2010 i686 GNU/Linux
>
> The bug:
>
> subset Int::Positive of Int where { $_ > 0 };
>
> sub lotto (Int::Positive $count, Int::Positive $range) returns List {
> die "$range must not be less than $count" if $range < $count;
> return (1 .. $range).pick($count);
> }
> .say for lotto(-3,10);
> Note that the first argument to "lotto" is negative and thus violates the type
> constraint. This code works fine if the first argument is a positive integer
> less than the second argument, but exits with no output otherwise. Making the
> second argument negative (and the first positive) hits the "die" line, so the
> type constraint is simply being ignored for negative numbers.
>
> If I change the first argument to a float such as 3.2, it seems to round it up
> to 4.
>
> Cheers,
> Ovid--
> Buy the book - http://www.oreilly.com/catalog/perlhks/
> Tech blog - http://blogs.perl.org/users/ovid/
> Twitter - http://twitter.com/OvidPerl
> Official Perl 6 Wiki - http://www.perlfoundation.org/perl6
>
>
>
--
Will "Coke" Coleda
