[perl #131617] [BUG] Any.tail(Callable) violates Iterator protocol

2018-02-09 Thread Zoffix Znet via RT
On Wed, 21 Jun 2017 11:46:46 -0700, c...@zoffix.com wrote: > The "Died" message should never occur: > > m: my $s = Seq.new: class :: does Iterator { has @!stuff = ; > has $!ded = 1; method pull-one { $!ded or die; @!stuff ?? shift > @!stuff !! $!ded-- && IterationEnd } }.new; say $s.tail: *-10 > r

[perl #131617] [BUG] Any.tail(Callable) violates Iterator protocol

2018-02-09 Thread Zoffix Znet via RT
On Wed, 21 Jun 2017 11:46:46 -0700, c...@zoffix.com wrote: > The "Died" message should never occur: > > m: my $s = Seq.new: class :: does Iterator { has @!stuff = ; > has $!ded = 1; method pull-one { $!ded or die; @!stuff ?? shift > @!stuff !! $!ded-- && IterationEnd } }.new; say $s.tail: *-10 > r

[perl #131617] [BUG] Any.tail(Callable) violates Iterator protocol

2017-06-21 Thread via RT
# New Ticket Created by Zoffix Znet # Please include the string: [perl #131617] # in the subject line of all future correspondence about this issue. # https://rt.perl.org/Ticket/Display.html?id=131617 > The "Died" message should never occur: m: my $s = Seq.new: class :: does Iterator { h