# New Ticket Created by "Carl Mäsak"
# Please include the string: [perl #57334]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=57334 >
$ svn info | grep Revi
Revision: 29791
This works.
$ ./perl6 -e 'sub a { return }; say a()'
$ ./perl6 -e 'sub a { return 5 }; say a()'
5
This doesn't.
$ ./perl6 -e 'sub a { return if False; return 5 }; say a()'
Could not find non-existent sub if
current instr.: 'a' pc 119 (EVAL_13:45)
called from Sub '_block11' pc 17 (EVAL_13:11)
called from Sub 'parrot;PCT::HLLCompiler;eval' pc 806
(src/PCT/HLLCompiler.pir:481)
called from Sub 'parrot;PCT::HLLCompiler;command_line' pc 1305
(src/PCT/HLLCompiler.pir:708)
called from Sub 'parrot;Perl6::Compiler;main' pc 14567 (perl6.pir:172)
