You signed in with another tab or window. Reload to refresh your session.You signed out in another tab or window. Reload to refresh your session.You switched accounts on another tab or window. Reload to refresh your session.Dismiss alert
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].
On Wed, 21 Jun 2017 11:46:46 -0700, cpan@zoffix.com wrote:
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].
Migrated from rt.perl.org#131617 (status was 'resolved')
Searchable as RT131617$
The text was updated successfully, but these errors were encountered: