# New Ticket Created by Zoffix Znet
# Please include the string: [perl #131617]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=131617 >
The "Died" message should never occur:
m: my $s = Seq.new: class :: does Iterator { has @!stuff = <a b c>; has
$!ded = 1; method pull-one { $!ded or die; @!stuff ?? shift @!stuff !! $!ded--
&& IterationEnd } }.new; say $s.tail: *-10
rakudo-moar 86e7b2: OUTPUT: «Died in method pull-one at <tmp> line 1 in
block <unit> at <tmp> line 1»
Looks like a check that .skip-at-least was successful is missing[^1].
[1]
https://github.com/rakudo/rakudo/blob/86e7b2bd25ed62ecd93d83a49b6e2cbfeeb1c24c/src/core/Any-iterable-methods.pm#L1889-L1890
[2]
https://github.com/rakudo/rakudo/blob/86e7b2bd25ed62ecd93d83a49b6e2cbfeeb1c24c/src/core/List.pm#L1289-L1298
