# New Ticket Created by "Carl Mäsak"
# Please include the string: [perl #88698]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=88698 >
Let's just say I don't think it should work like it does below. Even
if it *is* a syntax error, there are better ways to say that. File and
line number would be fine, but I'll consider this ticket fixed by just
having the very long imcc syntax error go away.
$ touch Foo.pm
$ perl6 -e '(use Foo)()'
error:imcc:syntax error, unexpected '(' ('(')
in file '.loadlib 'perl6_ops'
.HLL "perl6"
.namespace []
.sub "_block106" :anon :subid("76_1302947813.35435")
.param pmc param_128 :slurpy
.annotate 'line', 0
.const 'Sub' $P111 = "77_1302947813.35435"
capture_lex $P111
.annotate 'line', 1
.local pmc true
true = get_hll_global 'True'
.lex "__CANDIDATE_LIST__", $P108
get_hll_global $P109, "!UNIT_START"
.const 'Sub' $P111 = "77_1302947813.35435"
capture_lex $P111
.lex "@_", param_128
$P129 = $P109($P111, param_128)
.return ($P129)
.const 'Sub' $P134 = "79_1302947813.35435"
.return ($P134)
.end
.HLL "perl6"
.namespace []
.sub "_block110" :anon :subid("77_1302947813.35435")
:outer("76_1302947813.35435")
.param pmc param_120 :optional
.param int has_param_120 :opt_flag
.annotate 'line', 1
.local pmc true
true = get_hll_global 'True'
.lex "__CANDIDATE_LIST__", $P112
find_lex_skip_current $P113, "$_"
$P114 = new ['Perl6Scalar'], $P113
setprop $P114, "rw", true
.lex "$_", $P114
find_lex_skip_current $P115, "$/"
$P116 = new ['Perl6Scalar'], $P115
setprop $P116, "rw", true
.lex "$/", $P116
find_lex_skip_current $P117, "$!"
$P118 = new ['Perl6Scalar'], $P117
setprop $P118, "rw", true
.lex "$!", $P118
get_hll_global $P119, ["Perl6";"Module"], "Loader"
$P119."import"("Foo")
if has_param_120, optparam_81
new $P121, "Integer"
assign $P121, 0
set param_120, $P121
optparam_81:
.lex "$MAIN", param_120
$P0 = find_dynamic_lex "$*CTXSAVE"
if null $P0 goto ctxsave_done
$I0 = can $P0, "ctxsave"
unless $I0 goto ctxsave_done
$P0."ctxsave"()
ctxsave_done:
$P0 = get_hll_global "@!recapture"
recapture_loop:
unless $P0 goto recapture_loop_end
$P1 = shift $P0
fixup_outer_ctx $P1
goto recapture_loop
recapture_loop_end:
$P122 = ()
.return ($P122)
.end
.HLL "perl6"
.namespace []
.sub "" :load :init :subid("post80") :outer("77_1302947813.35435")
.annotate 'line', 1
.const 'Sub' $P111 = "77_1302947813.35435"
.local pmc block
set block, $P111
$P0 = find_name "!UNIT_OUTER"
unless null $P0 goto have_perl6
load_language "perl6"
have_perl6:
"!UNIT_OUTER"(block)
get_hll_global $P123, ["Perl6";"Module"], "Loader"
$P124 = "&infix:<,>"()
$P125 = "&circumfix:<{ }>"($P124)
set $S126, "$!storage"
getattribute $P127, $P125, $S126
$P123."need"("Foo", $P127)
.end
.HLL "perl6"
.namespace []
.sub "_block130" :load :init :anon :subid("78_1302947813.35435")
.annotate 'line', 1
$P132 = "!fire_phasers"("CHECK")
.return ($P132)
.end
.HLL "perl6"
.namespace []
.sub "_block133" :load :anon :subid("79_1302947813.35435")
.annotate 'line', 1
.const 'Sub' $P135 = "76_1302947813.35435"
$P136 = "!UNIT_START"($P135)
.return ($P136)
.end
' line 68
error:imcc:syntax error ... somewhere
in file '.loadlib 'perl6_ops'
.HLL "perl6"
.namespace []
.sub "_block106" :anon :subid("76_1302947813.35435")
.param pmc param_128 :slurpy
.annotate 'line', 0
.const 'Sub' $P111 = "77_1302947813.35435"
capture_lex $P111
.annotate 'line', 1
.local pmc true
true = get_hll_global 'True'
.lex "__CANDIDATE_LIST__", $P108
get_hll_global $P109, "!UNIT_START"
.const 'Sub' $P111 = "77_1302947813.35435"
capture_lex $P111
.lex "@_", param_128
$P129 = $P109($P111, param_128)
.return ($P129)
.const 'Sub' $P134 = "79_1302947813.35435"
.return ($P134)
.end
.HLL "perl6"
.namespace []
.sub "_block110" :anon :subid("77_1302947813.35435")
:outer("76_1302947813.35435")
.param pmc param_120 :optional
.param int has_param_120 :opt_flag
.annotate 'line', 1
.local pmc true
true = get_hll_global 'True'
.lex "__CANDIDATE_LIST__", $P112
find_lex_skip_current $P113, "$_"
$P114 = new ['Perl6Scalar'], $P113
setprop $P114, "rw", true
.lex "$_", $P114
find_lex_skip_current $P115, "$/"
$P116 = new ['Perl6Scalar'], $P115
setprop $P116, "rw", true
.lex "$/", $P116
find_lex_skip_current $P117, "$!"
$P118 = new ['Perl6Scalar'], $P117
setprop $P118, "rw", true
.lex "$!", $P118
get_hll_global $P119, ["Perl6";"Module"], "Loader"
$P119."import"("Foo")
if has_param_120, optparam_81
new $P121, "Integer"
assign $P121, 0
set param_120, $P121
optparam_81:
.lex "$MAIN", param_120
$P0 = find_dynamic_lex "$*CTXSAVE"
if null $P0 goto ctxsave_done
$I0 = can $P0, "ctxsave"
unless $I0 goto ctxsave_done
$P0."ctxsave"()
ctxsave_done:
$P0 = get_hll_global "@!recapture"
recapture_loop:
unless $P0 goto recapture_loop_end
$P1 = shift $P0
fixup_outer_ctx $P1
goto recapture_loop
recapture_loop_end:
$P122 = ()
.return ($P122)
.end
.HLL "perl6"
.namespace []
.sub "" :load :init :subid("post80") :outer("77_1302947813.35435")
.annotate 'line', 1
.const 'Sub' $P111 = "77_1302947813.35435"
.local pmc block
set block, $P111
$P0 = find_name "!UNIT_OUTER"
unless null $P0 goto have_perl6
load_language "perl6"
have_perl6:
"!UNIT_OUTER"(block)
get_hll_global $P123, ["Perl6";"Module"], "Loader"
$P124 = "&infix:<,>"()
$P125 = "&circumfix:<{ }>"($P124)
set $S126, "$!storage"
getattribute $P127, $P125, $S126
$P123."need"("Foo", $P127)
.end
.HLL "perl6"
.namespace []
.sub "_block130" :load :init :anon :subid("78_1302947813.35435")
.annotate 'line', 1
$P132 = "!fire_phasers"("CHECK")
.return ($P132)
.end
.HLL "perl6"
.namespace []
.sub "_block133" :load :anon :subid("79_1302947813.35435")
.annotate 'line', 1
.const 'Sub' $P135 = "76_1302947813.35435"
$P136 = "!UNIT_START"($P135)
.return ($P136)
.end
' line 112
===SORRY!===
syntax error ... somewhere
$
