As a funny bonus, Parrot segfaults if the dummy assignment is left out inside the loop:
$ <README ./perl6 -e 'my $l = 0; while !$*IN.eof { $l++; =$*IN; }; say $l' Segmentation fault
As a funny bonus, Parrot segfaults if the dummy assignment is left out inside the loop:
$ <README ./perl6 -e 'my $l = 0; while !$*IN.eof { $l++; =$*IN; }; say $l' Segmentation fault