Adrian Kreher (via RT) wrote:
> # New Ticket Created by Adrian Kreher
> # Please include the string: [perl #57356]
> # in the subject line of all future correspondence about this issue.
> # <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=57356 >
>
>
> If I iterate a filehandle, it dies with this stacktrace. This would be very
> useful in IO (which includes getting the file that runs 500+ regex tests
> running under Rakudo).
For the record, this is the code that fails:
$ ../../parrot perl6.pbc -e 'my $x = open "README"; for =$x { .say }'
I'll see if I can come up with a simple test for that, since currently
open() doesn't seem to be tested in spectest_regression.
> get_string() not implemented in class 'IOIterator'
> current instr.: 'print' pc 12259 (src/gen_builtins.pir:7802)
> called from Sub 'say' pc 12281 (src/gen_builtins.pir:7812)
> called from Sub '_block28' pc 219 (EVAL_15:67)
> called from Sub '_block11' pc 139 (EVAL_15:41)
> called from Sub 'parrot;PCT::HLLCompiler;eval' pc 806
> (src/PCT/HLLCompiler.pir:481)
> called from Sub 'parrot;PCT::HLLCompiler;evalfiles' pc 1088
> (src/PCT/HLLCompiler.pir:610)
> called from Sub 'parrot;PCT::HLLCompiler;command_line' pc 1267
> (src/PCT/HLLCompiler.pir:699)
> called from Sub 'parrot;Perl6::Compiler;main' pc 14567 (perl6.pir:172)
--
Moritz Lenz
http://moritz.faui2k3.org/ | http://perl-6.de/
