> On 20 Mar 2016, at 14:39, Elizabeth Mattijsen (via RT)
> <[email protected]> wrote:
>
> # New Ticket Created by Elizabeth Mattijsen
> # Please include the string: [perl #127748]
> # in the subject line of all future correspondence about this issue.
> # <URL: https://rt.perl.org/Ticket/Display.html?id=127748 >
>
>
> ==========================
> my $a = 14;
> while (True) {
> my $z = (2..13).first(-> $x { !($a %% $x) });
> last if (!$z);
> $a += 14
> }
> say $a
> ==========================
Some more datapoints:
Changing the first block to
{ !($a %% $^x) }
does *not* fix the issue, changing the block to
{ !($a %% $_) }
*does* fix the issue.
Also, changing the type of $a to:
my Int $a = 14;
does *not* fix the issue, whereas changing it to:
my int $a = 14;
*does* fix the issue.
Liz
