.loadlib 'perl6_ops'

.HLL "perl6"

.namespace []
.sub "_block74"  :anon :subid("85_1297392838.30376")
    .param pmc param_594 :slurpy
.annotate 'line', 0
    .const 'Sub' $P79 = "86_1297392838.30376" 
    capture_lex $P79
.annotate 'line', 1
.annotate 'file', '/usr/local/lib/parrot/3.0.0/languages/perl6/lib/Module/Install.pm'
    .local pmc true
    true = get_hll_global 'True'
    .lex "__CANDIDATE_LIST__", $P76
    get_hll_global $P77, "!UNIT_START"
    .const 'Sub' $P79 = "86_1297392838.30376" 
    capture_lex $P79
    .lex "@_", param_594
    $P595 = $P77($P79, param_594)
    .return ($P595)
    .const 'Sub' $P600 = "121_1297392838.30376" 
    .return ($P600)
.end


.HLL "perl6"

.namespace []
.sub "_block78"  :anon :subid("86_1297392838.30376") :outer("85_1297392838.30376")
    .param pmc param_87 :optional
    .param int has_param_87 :opt_flag
.annotate 'line', 1
    get_hll_global $P90, ["Module";"Install"], "_block89" 
    capture_lex $P90
    .local pmc true
    true = get_hll_global 'True'
    .lex "__CANDIDATE_LIST__", $P80
    find_lex_skip_current $P81, "$_"
    $P82 = new ['Perl6Scalar'], $P81
    setprop $P82, "rw", true
    .lex "$_", $P82
    find_lex_skip_current $P83, "$/"
    $P84 = new ['Perl6Scalar'], $P83
    setprop $P84, "rw", true
    .lex "$/", $P84
    find_lex_skip_current $P85, "$!"
    $P86 = new ['Perl6Scalar'], $P85
    setprop $P86, "rw", true
    .lex "$!", $P86
    if has_param_87, optparam_123
    new $P88, "Integer"
    assign $P88, 0
    set param_87, $P88
  optparam_123:
    .lex "$MAIN", param_87
    $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:
    get_hll_global $P90, ["Module";"Install"], "_block89" 
    capture_lex $P90
    $P590 = $P90()
    .return ($P590)
.end


.HLL "perl6"

.namespace []
.sub "" :load :init :subid("post122") :outer("86_1297392838.30376")
.annotate 'line', 1
    .const 'Sub' $P79 = "86_1297392838.30376" 
    .local pmc block
    set block, $P79
    $P0 = find_name "!UNIT_OUTER"
    unless null $P0 goto have_perl6
    load_language "perl6"
  have_perl6:
    "!UNIT_OUTER"(block)
    find_sub_not_null $P591, "&reducewith"
    find_sub_not_null $P592, "&infix:<~>"
    $P593 = $P591."assuming"($P592, 1 :named("triangle"), 0 :named("chaining"), 0 :named("right-assoc"))
    set_global "&prefix:<[\\~]>", $P593
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "_block89"  :subid("87_1297392838.30376") :outer("86_1297392838.30376")
.annotate 'line', 1
    .const 'Sub' $P181 = "94_1297392838.30376" 
    capture_lex $P181
    .const 'Sub' $P99 = "88_1297392838.30376" 
    capture_lex $P99
    .local pmc true
    true = get_hll_global 'True'
    .lex "__CANDIDATE_LIST__", $P91
    find_lex_skip_current $P92, "$_"
    $P93 = new ['Perl6Scalar'], $P92
    setprop $P93, "rw", true
    .lex "$_", $P93
    find_lex_skip_current $P94, "$/"
    $P95 = new ['Perl6Scalar'], $P94
    setprop $P95, "rw", true
    .lex "$/", $P95
    find_lex_skip_current $P96, "$!"
    $P97 = new ['Perl6Scalar'], $P96
    setprop $P97, "rw", true
    .lex "$!", $P97
    null $P98
    .lex "&find", $P98
.annotate 'line', 6
    .local pmc code_67
    .const 'Sub' $P99 = "88_1297392838.30376" 
    capture_lex $P99
    get_hll_global $P178, "Sub"
    .const 'Sub' $P179 = "89_1297392838.30376" 
    $P180 = $P99."!get_closure"($P178, $P179, 0)
    set code_67, $P180
    .lex "&mkdirp", code_67
.annotate 'line', 12
    .local pmc code_84
    .const 'Sub' $P181 = "94_1297392838.30376" 
    capture_lex $P181
    get_hll_global $P577, "Sub"
    .const 'Sub' $P578 = "95_1297392838.30376" 
    $P579 = $P181."!get_closure"($P577, $P578, 0)
    set code_84, $P579
    set_global "&install", code_84
    .lex "&install", code_84
.annotate 'line', 1
    get_hll_global $P580, ["Perl6";"Module"], "Loader"
    $P580."import"("File::Find")
    .return (code_84)
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "" :load :init :subid("post124") :outer("87_1297392838.30376")
.annotate 'line', 1
    get_hll_global $P90, ["Module";"Install"], "_block89" 
    .local pmc block
    set block, $P90
    get_hll_global $P581, ["Perl6";"Module"], "Loader"
    $P582 = "&infix:<,>"()
    $P583 = "&circumfix:<{ }>"($P582)
    set $S584, "$!storage"
    getattribute $P585, $P583, $S584
    $P581."need"("File::Find", $P585)
    .const 'Sub' $P586 = "94_1297392838.30376" 
    get_hll_global $P587, "Sub"
    .const 'Sub' $P588 = "95_1297392838.30376" 
    $P589 = $P586."!get_code"($P587, $P588)
    set_global "&install", $P589
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.include "except_types.pasm"
.sub "mkdirp"  :anon :subid("88_1297392838.30376") :outer("87_1297392838.30376")
    .param pmc param_106 :call_sig
.annotate 'line', 6
    .const 'Sub' $P148 = "92_1297392838.30376" 
    capture_lex $P148
    .const 'Sub' $P121 = "90_1297392838.30376" 
    capture_lex $P121
    .const 'Sub' $P110 = "89_1297392838.30376" 
    capture_lex $P110
    new $P101, ['ExceptionHandler'], .CONTROL_RETURN
    set_addr $P101, control_100
    push_eh $P101
    .local pmc true
    true = get_hll_global 'True'
    .lex "__CANDIDATE_LIST__", $P102
    $P103 = new ['Perl6Scalar']
    setprop $P103, "rw", true
    .lex "$_", $P103
    $P104 = new ['Perl6Scalar']
    setprop $P104, "rw", true
    .lex "$/", $P104
    $P105 = new ['Perl6Scalar']
    setprop $P105, "rw", true
    .lex "$!", $P105
    .lex "call_sig", param_106
    new $P107, "Perl6Scalar"
    .lex "$name", $P107
    find_lex $P108, "call_sig"
    bind_llsig $P108
.annotate 'line', 7
    find_lex $P115, "$name"
    deref_unless_object $P116, $P115
    new $P117, "Str"
    assign $P117, "/"
    $P118 = $P116."split"($P117)
    deref_unless_object $P119, $P118
    .const 'Sub' $P121 = "90_1297392838.30376" 
    capture_lex $P121
    get_hll_global $P141, "Block"
    .const 'Sub' $P142 = "91_1297392838.30376" 
    $P143 = $P121."!get_closure"($P141, $P142, 0)
    $P144 = $P119."map"($P143)
    $P145 = "&prefix:<[\\~]>"($P144)
    $P146 = "&flat"($P145)
    .const 'Sub' $P148 = "92_1297392838.30376" 
    capture_lex $P148
    get_hll_global $P172, "Block"
    .const 'Sub' $P173 = "93_1297392838.30376" 
    $P174 = $P148."!get_closure"($P172, $P173, 0)
    $P175 = $P146."map"($P174)
    $P176 = "&eager"($P175)
.annotate 'line', 6
    .return ($P176)
  control_100:
    .local pmc exception 
    .get_results (exception) 
    getattribute $P177, exception, "payload"
    .return ($P177)
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "_block109"  :anon :subid("89_1297392838.30376") :outer("88_1297392838.30376")
.annotate 'line', 6
    $P111 = allocate_llsig 1
    .local pmc signature_66
    set signature_66, $P111
    null $P0
    null $S0
    get_hll_global $P112, "Any"
    get_hll_global $P113, "Str"
    $S114 = $P113."perl"()
    set_llsig_elem signature_66, 0, "$name", 128, $P112, $P0, $P0, $P0, $P0, $P0, $S114
    .local pmc signature
    set signature, signature_66
    .return (signature)
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "_block120"  :anon :subid("90_1297392838.30376") :outer("88_1297392838.30376")
    .param pmc param_127 :call_sig
.annotate 'line', 7
    .const 'Sub' $P131 = "91_1297392838.30376" 
    capture_lex $P131
    .local pmc true
    true = get_hll_global 'True'
    .lex "__CANDIDATE_LIST__", $P122
    find_lex_skip_current $P123, "$/"
    $P124 = new ['Perl6Scalar'], $P123
    setprop $P124, "rw", true
    .lex "$/", $P124
    find_lex_skip_current $P125, "$!"
    $P126 = new ['Perl6Scalar'], $P125
    setprop $P126, "rw", true
    .lex "$!", $P126
    .lex "call_sig", param_127
    new $P128, "Perl6Scalar"
    .lex "$_", $P128
    find_lex $P129, "call_sig"
    bind_llsig $P129
    find_lex $P134, "$_"
    set $S135, $P134
    new $P136, 'String'
    set $P136, $S135
    new $P137, "Str"
    assign $P137, "/"
    concat $P138, $P136, $P137
    .return ($P138)
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "" :load :init :subid("post125") :outer("90_1297392838.30376")
.annotate 'line', 7
    .const 'Sub' $P121 = "90_1297392838.30376" 
    .local pmc block
    set block, $P121
    .const 'Sub' $P139 = "90_1297392838.30376" 
    .const 'Sub' $P140 = "91_1297392838.30376" 
    setprop $P139, "$!lazysig", $P140
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "_block130"  :anon :subid("91_1297392838.30376") :outer("90_1297392838.30376")
.annotate 'line', 7
    $P132 = allocate_llsig 1
    .local pmc signature_64
    set signature_64, $P132
    null $P0
    null $S0
    get_hll_global $P133, "Mu"
    set_llsig_elem signature_64, 0, "$_", 19456, $P133, $P0, $P0, $P0, $P0, $P0, $S0
    .local pmc signature
    set signature, signature_64
    .return (signature)
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "_block147"  :anon :subid("92_1297392838.30376") :outer("88_1297392838.30376")
    .param pmc param_154 :call_sig
.annotate 'line', 7
    .const 'Sub' $P158 = "93_1297392838.30376" 
    capture_lex $P158
    .local pmc true
    true = get_hll_global 'True'
    .lex "__CANDIDATE_LIST__", $P149
    find_lex_skip_current $P150, "$/"
    $P151 = new ['Perl6Scalar'], $P150
    setprop $P151, "rw", true
    .lex "$/", $P151
    find_lex_skip_current $P152, "$!"
    $P153 = new ['Perl6Scalar'], $P152
    setprop $P153, "rw", true
    .lex "$!", $P153
    .lex "call_sig", param_154
    new $P155, "Perl6Scalar"
    .lex "$_", $P155
    find_lex $P156, "call_sig"
    bind_llsig $P156
.annotate 'line', 8
    find_lex $P163, "$_"
    $P164 = $P163."IO"()
    deref_unless_object $P165, $P164
    $P166 = $P165."d"()
    unless $P166, unless_162
    get_hll_global $P169, "Nil"
    set $P161, $P169
    goto unless_162_end
  unless_162:
    find_lex $P167, "$_"
    $P168 = "&mkdir"($P167)
    set $P161, $P168
  unless_162_end:
.annotate 'line', 7
    .return ($P161)
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "" :load :init :subid("post126") :outer("92_1297392838.30376")
.annotate 'line', 7
    .const 'Sub' $P148 = "92_1297392838.30376" 
    .local pmc block
    set block, $P148
    .const 'Sub' $P170 = "92_1297392838.30376" 
    .const 'Sub' $P171 = "93_1297392838.30376" 
    setprop $P170, "$!lazysig", $P171
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "_block157"  :anon :subid("93_1297392838.30376") :outer("92_1297392838.30376")
.annotate 'line', 7
    $P159 = allocate_llsig 1
    .local pmc signature_65
    set signature_65, $P159
    null $P0
    null $S0
    get_hll_global $P160, "Mu"
    set_llsig_elem signature_65, 0, "$_", 19456, $P160, $P0, $P0, $P0, $P0, $P0, $S0
    .local pmc signature
    set signature, signature_65
    .return (signature)
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.include "except_types.pasm"
.sub "install"  :anon :subid("94_1297392838.30376") :outer("87_1297392838.30376")
    .param pmc param_188 :call_sig
.annotate 'line', 12
    .const 'Sub' $P268 = "100_1297392838.30376" 
    capture_lex $P268
    .const 'Sub' $P241 = "98_1297392838.30376" 
    capture_lex $P241
    .const 'Sub' $P194 = "95_1297392838.30376" 
    capture_lex $P194
    new $P183, ['ExceptionHandler'], .CONTROL_RETURN
    set_addr $P183, control_182
    push_eh $P183
    .local pmc true
    true = get_hll_global 'True'
    .lex "__CANDIDATE_LIST__", $P184
    $P185 = new ['Perl6Scalar']
    setprop $P185, "rw", true
    .lex "$_", $P185
    $P186 = new ['Perl6Scalar']
    setprop $P186, "rw", true
    .lex "$/", $P186
    $P187 = new ['Perl6Scalar']
    setprop $P187, "rw", true
    .lex "$!", $P187
    .lex "call_sig", param_188
    new $P189, "Perl6Scalar"
    .lex "$dir", $P189
    new $P190, "Perl6Scalar"
    .lex "$dest", $P190
    new $P191, "Perl6Scalar"
    .lex "$v", $P191
    find_lex $P192, "call_sig"
    bind_llsig $P192
.annotate 'line', 13
    $P219 = "!find_contextual"("$*VM")
    new $P220, "Str"
    assign $P220, "config"
    $P221 = "!postcircumfix:<{ }>"($P219, $P220)
    new $P222, "Str"
    assign $P222, "osname"
    $P223 = "!postcircumfix:<{ }>"($P221, $P222)
    new $P224, "Str"
    assign $P224, "MSWin32"
    $P218 = "&infix:<ne>"($P223, $P224)
  chain_end_127:
    if $P218, if_217
    set $P216, $P218
    goto if_217_end
  if_217:
    find_lex $P225, "$_"
    .local pmc old_topic68
    set old_topic68, $P225
.annotate 'line', 14
    find_lex $P226, "$dir"
    set $S227, $P226
    new $P228, 'String'
    set $P228, $S227
    new $P229, "Str"
    assign $P229, "/Makefile"
    concat $P230, $P228, $P229
    deref_unless_object $P231, $P230
    $P232 = $P231."IO"()
    store_lex "$_", $P232
.annotate 'line', 13
    get_hll_global $P233, "Pair"
    get_hll_global $P234, ["Bool"], "True"
    $P235 = $P233."new"("f" :named("key"), $P234 :named("value"))
    find_lex $P236, "$_"
    $P237 = $P235."ACCEPTS"($P236)
    $P238 = "&coerce-smartmatch-result"($P237, 0)
    .lex "sm_result69", $P238
    store_lex "$_", old_topic68
    find_lex $P239, "sm_result69"
    set $P216, $P239
  if_217_end:
.annotate 'line', 14
    if $P216, if_215
.annotate 'line', 19
    .const 'Sub' $P268 = "100_1297392838.30376" 
    capture_lex $P268
    $P575 = $P268()
    set $P214, $P575
.annotate 'line', 14
    goto if_215_end
  if_215:
    .const 'Sub' $P241 = "98_1297392838.30376" 
    capture_lex $P241
    $P266 = $P241()
    set $P214, $P266
  if_215_end:
.annotate 'line', 12
    .return ($P214)
  control_182:
    .local pmc exception 
    .get_results (exception) 
    getattribute $P576, exception, "payload"
    .return ($P576)
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "_block193"  :anon :subid("95_1297392838.30376") :outer("94_1297392838.30376")
.annotate 'line', 12
    .const 'Sub' $P204 = "97_1297392838.30376" 
    capture_lex $P204
    .const 'Sub' $P199 = "96_1297392838.30376" 
    capture_lex $P199
    $P195 = allocate_llsig 3
    .local pmc signature_83
    set signature_83, $P195
    null $P0
    null $S0
    get_hll_global $P196, "Str"
    $P197 = root_new ['parrot'; 'ResizableStringArray']
    push $P197, utf8:"dir"

    .const 'Sub' $P199 = "96_1297392838.30376" 
    capture_lex $P199
    set_llsig_elem signature_83, 0, "$dir", 2176, $P196, $P0, $P197, $P0, $P199, $P0, $S0
    get_hll_global $P201, "Str"
    $P202 = root_new ['parrot'; 'ResizableStringArray']
    push $P202, utf8:"dest"

    .const 'Sub' $P204 = "97_1297392838.30376" 
    capture_lex $P204
    set_llsig_elem signature_83, 1, "$dest", 2176, $P201, $P0, $P202, $P0, $P204, $P0, $S0
    get_hll_global $P212, "Any"
    $P213 = root_new ['parrot'; 'ResizableStringArray']
    push $P213, utf8:"v"

    set_llsig_elem signature_83, 2, "$v", 2176, $P212, $P0, $P213, $P0, $P0, $P0, $S0
    .local pmc signature
    set signature, signature_83
    .return (signature)
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "_block198"  :anon :subid("96_1297392838.30376") :outer("95_1297392838.30376")
.annotate 'line', 12
    new $P200, "Str"
    assign $P200, "."
    .return ($P200)
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "_block203"  :anon :subid("97_1297392838.30376") :outer("95_1297392838.30376")
.annotate 'line', 12
    $P205 = "!find_contextual"("%*ENV")
    new $P206, "Str"
    assign $P206, "HOME"
    $P207 = "!postcircumfix:<{ }>"($P205, $P206)
    set $S208, $P207
    new $P209, 'String'
    set $P209, $S208
    new $P210, "Str"
    assign $P210, "/.perl6"
    concat $P211, $P209, $P210
    .return ($P211)
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "_block267"  :anon :subid("100_1297392838.30376") :outer("94_1297392838.30376")
    .param pmc param_280 :call_sig
.annotate 'line', 19
    .const 'Sub' $P429 = "111_1297392838.30376" 
    capture_lex $P429
    .const 'Sub' $P377 = "107_1297392838.30376" 
    capture_lex $P377
    .const 'Sub' $P303 = "102_1297392838.30376" 
    capture_lex $P303
    .const 'Sub' $P283 = "101_1297392838.30376" 
    capture_lex $P283
    .local pmc true
    true = get_hll_global 'True'
    .lex "__CANDIDATE_LIST__", $P269
    find_lex_skip_current $P270, "$_"
    $P271 = new ['Perl6Scalar'], $P270
    setprop $P271, "rw", true
    .lex "$_", $P271
    find_lex_skip_current $P272, "$/"
    $P273 = new ['Perl6Scalar'], $P272
    setprop $P273, "rw", true
    .lex "$/", $P273
    find_lex_skip_current $P274, "$!"
    $P275 = new ['Perl6Scalar'], $P274
    setprop $P275, "rw", true
    .lex "$!", $P275
.annotate 'line', 20
    new $P276, "Array"
    setprop $P276, "rw", true
    set $P0, $P276
    get_hll_global $P277, "ContainerDeclarand"
    $P278 = $P277."new"($P0, "@files" :named("name"))
    .local pmc declarand
    set declarand, $P278
    transform_to_p6opaque $P0
    $P279 = $P0
    .lex "@files", $P279
    .lex "call_sig", param_280
    find_lex $P281, "call_sig"
    bind_llsig $P281
    find_lex $P285, "@files"
.annotate 'line', 21
    find_lex $P287, "$_"
    .local pmc old_topic71
    set old_topic71, $P287
    find_lex $P288, "$dir"
    set $S289, $P288
    new $P290, 'String'
    set $P290, $S289
    new $P291, "Str"
    assign $P291, "/lib"
    concat $P292, $P290, $P291
    deref_unless_object $P293, $P292
    $P294 = $P293."IO"()
    store_lex "$_", $P294
    get_hll_global $P295, "Pair"
    get_hll_global $P296, ["Bool"], "True"
    $P297 = $P295."new"("d" :named("key"), $P296 :named("value"))
    find_lex $P298, "$_"
    $P299 = $P297."ACCEPTS"($P298)
    $P300 = "&coerce-smartmatch-result"($P299, 0)
    .lex "sm_result72", $P300
    store_lex "$_", old_topic71
    find_lex $P301, "sm_result72"
    unless $P301, if_286_end
    .const 'Sub' $P303 = "102_1297392838.30376" 
    capture_lex $P303
    $P303()
  if_286_end:
.annotate 'line', 27
    find_lex $P361, "$_"
    .local pmc old_topic75
    set old_topic75, $P361
    find_lex $P362, "$dir"
    set $S363, $P362
    new $P364, 'String'
    set $P364, $S363
    new $P365, "Str"
    assign $P365, "/bin"
    concat $P366, $P364, $P365
    deref_unless_object $P367, $P366
    $P368 = $P367."IO"()
    store_lex "$_", $P368
    get_hll_global $P369, "Pair"
    get_hll_global $P370, ["Bool"], "True"
    $P371 = $P369."new"("d" :named("key"), $P370 :named("value"))
    find_lex $P372, "$_"
    $P373 = $P371."ACCEPTS"($P372)
    $P374 = "&coerce-smartmatch-result"($P373, 0)
    .lex "sm_result76", $P374
    store_lex "$_", old_topic75
    find_lex $P375, "sm_result76"
    unless $P375, if_360_end
    .const 'Sub' $P377 = "107_1297392838.30376" 
    capture_lex $P377
    $P377()
  if_360_end:
.annotate 'line', 32
    find_lex $P426, "@files"
    $P427 = "&flat"($P426)
    .const 'Sub' $P429 = "111_1297392838.30376" 
    capture_lex $P429
    get_hll_global $P568, "Block"
    .const 'Sub' $P569 = "112_1297392838.30376" 
    $P570 = $P429."!get_closure"($P568, $P569, 0)
    $P571 = $P427."map"($P570)
    $P572 = "&eager"($P571)
.annotate 'line', 19
    .return ($P572)
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "" :load :init :subid("post128") :outer("100_1297392838.30376")
.annotate 'line', 19
    .const 'Sub' $P268 = "100_1297392838.30376" 
    .local pmc block
    set block, $P268
    .const 'Sub' $P573 = "100_1297392838.30376" 
    .const 'Sub' $P574 = "101_1297392838.30376" 
    setprop $P573, "$!lazysig", $P574
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "_block282"  :anon :subid("101_1297392838.30376") :outer("100_1297392838.30376")
.annotate 'line', 20
    $P284 = allocate_llsig 0
    .local pmc signature_82
    set signature_82, $P284
    null $P0
    null $S0
    .local pmc signature
    set signature, signature_82
    .return (signature)
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "_block302"  :anon :subid("102_1297392838.30376") :outer("100_1297392838.30376")
    .param pmc param_311 :call_sig
.annotate 'line', 21
    .const 'Sub' $P334 = "105_1297392838.30376" 
    capture_lex $P334
    .const 'Sub' $P322 = "104_1297392838.30376" 
    capture_lex $P322
    .const 'Sub' $P314 = "103_1297392838.30376" 
    capture_lex $P314
    .local pmc true
    true = get_hll_global 'True'
    .lex "__CANDIDATE_LIST__", $P304
    find_lex_skip_current $P305, "$_"
    $P306 = new ['Perl6Scalar'], $P305
    setprop $P306, "rw", true
    .lex "$_", $P306
    find_lex_skip_current $P307, "$/"
    $P308 = new ['Perl6Scalar'], $P307
    setprop $P308, "rw", true
    .lex "$/", $P308
    find_lex_skip_current $P309, "$!"
    $P310 = new ['Perl6Scalar'], $P309
    setprop $P310, "rw", true
    .lex "$!", $P310
    .lex "call_sig", param_311
    find_lex $P312, "call_sig"
    bind_llsig $P312
.annotate 'line', 22
    find_lex $P316, "$dir"
    set $S317, $P316
    new $P318, 'String'
    set $P318, $S317
    new $P319, "Str"
    assign $P319, "/lib"
    concat $P320, $P318, $P319
    .const 'Sub' $P322 = "104_1297392838.30376" 
    capture_lex $P322
    get_hll_global $P327, "Regex"
    $P328 = $P322."!get_closure"($P327, 0)
    $P329 = "&find"($P320 :named("dir"), $P328 :named("name"))
    deref_unless_object $P330, $P329
.annotate 'line', 23
    $P331 = $P330."list"()
    $P332 = "&flat"($P331)
    .const 'Sub' $P334 = "105_1297392838.30376" 
    capture_lex $P334
    get_hll_global $P353, "Block"
    .const 'Sub' $P354 = "106_1297392838.30376" 
    $P355 = $P334."!get_closure"($P353, $P354, 0)
.annotate 'line', 22
    $P356 = $P332."map"($P355)
    $P357 = "&eager"($P356)
.annotate 'line', 21
    .return ($P357)
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "" :load :init :subid("post129") :outer("102_1297392838.30376")
.annotate 'line', 21
    .const 'Sub' $P303 = "102_1297392838.30376" 
    .local pmc block
    set block, $P303
    .const 'Sub' $P358 = "102_1297392838.30376" 
    .const 'Sub' $P359 = "103_1297392838.30376" 
    setprop $P358, "$!lazysig", $P359
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "_block313"  :anon :subid("103_1297392838.30376") :outer("102_1297392838.30376")
.annotate 'line', 21
    $P315 = allocate_llsig 0
    .local pmc signature_74
    set signature_74, $P315
    null $P0
    null $S0
    .local pmc signature
    set signature, signature_74
    .return (signature)
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "_block321"  :anon :subid("104_1297392838.30376") :method :outer("102_1297392838.30376")
.annotate 'line', 22
    .local string rx323_tgt
    .local int rx323_pos
    .local int rx323_off
    .local int rx323_eos
    .local int rx323_rep
    .local pmc rx323_cur
    .local pmc rx323_debug
    (rx323_cur, rx323_pos, rx323_tgt, $I10) = self."!cursor_start"()
    getattribute rx323_debug, rx323_cur, "$!debug"
    .lex unicode:"$\x{a2}", rx323_cur
    .local pmc match
    .lex "$/", match
    length rx323_eos, rx323_tgt
    gt rx323_pos, rx323_eos, rx323_done
    set rx323_off, 0
    lt rx323_pos, 2, rx323_start
    sub rx323_off, rx323_pos, 1
    substr rx323_tgt, rx323_tgt, rx323_off
  rx323_start:
    eq $I10, 1, rx323_restart
    if_null rx323_debug, debug_130
    rx323_cur."!cursor_debug"("START", "")
  debug_130:
    $I10 = self.'from'()
    ne $I10, -1, rxscan324_done
    goto rxscan324_scan
  rxscan324_loop:
    ($P10) = rx323_cur."from"()
    inc $P10
    set rx323_pos, $P10
    ge rx323_pos, rx323_eos, rxscan324_done
  rxscan324_scan:
    set_addr $I10, rxscan324_loop
    rx323_cur."!mark_push"(0, rx323_pos, $I10)
  rxscan324_done:
  alt325_0:
.annotate 'line', 23
    set_addr $I10, alt325_1
    rx323_cur."!mark_push"(0, rx323_pos, $I10)
  # rx literal  ".pm"
    add $I11, rx323_pos, 3
    gt $I11, rx323_eos, rx323_fail
    sub $I11, rx323_pos, rx323_off
    substr $S10, rx323_tgt, $I11, 3
    ne $S10, ".pm", rx323_fail
    add rx323_pos, 3
  # rx rxquantg326 ** 0..1
    set_addr $I10, rxquantg326_done
    rx323_cur."!mark_push"(0, rx323_pos, $I10)
  rxquantg326_loop:
  # rx literal  "6"
    add $I11, rx323_pos, 1
    gt $I11, rx323_eos, rx323_fail
    sub $I11, rx323_pos, rx323_off
    ord $I11, rx323_tgt, $I11
    ne $I11, 54, rx323_fail
    add rx323_pos, 1
  rxquantg326_done:
  # rxanchor eos
    ne rx323_pos, rx323_eos, rx323_fail
    goto alt325_end
  alt325_1:
  # rx literal  ".pir"
    add $I11, rx323_pos, 4
    gt $I11, rx323_eos, rx323_fail
    sub $I11, rx323_pos, rx323_off
    substr $S10, rx323_tgt, $I11, 4
    ne $S10, ".pir", rx323_fail
    add rx323_pos, 4
  # rxanchor eos
    ne rx323_pos, rx323_eos, rx323_fail
  alt325_end:
  # rx pass
    rx323_cur."!cursor_pass"(rx323_pos, "")
    if_null rx323_debug, debug_131
    rx323_cur."!cursor_debug"("PASS", "", " at pos=", rx323_pos)
  debug_131:
    rx323_cur."!cursor_backtrack"()
    .return (rx323_cur)
  rx323_restart:
.annotate 'line', 22
    if_null rx323_debug, debug_132
    rx323_cur."!cursor_debug"("NEXT", "")
  debug_132:
  rx323_fail:
    (rx323_rep, rx323_pos, $I10, $P10) = rx323_cur."!mark_fail"(0)
    lt rx323_pos, -1, rx323_done
    eq rx323_pos, -1, rx323_fail
    jump $I10
  rx323_done:
    rx323_cur."!cursor_fail"()
    if_null rx323_debug, debug_133
    rx323_cur."!cursor_debug"("FAIL", "")
  debug_133:
    .return (rx323_cur)
    .return ()
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "_block333"  :anon :subid("105_1297392838.30376") :outer("102_1297392838.30376")
    .param pmc param_340 :call_sig
.annotate 'line', 23
    .const 'Sub' $P344 = "106_1297392838.30376" 
    capture_lex $P344
    .local pmc true
    true = get_hll_global 'True'
    .lex "__CANDIDATE_LIST__", $P335
    find_lex_skip_current $P336, "$/"
    $P337 = new ['Perl6Scalar'], $P336
    setprop $P337, "rw", true
    .lex "$/", $P337
    find_lex_skip_current $P338, "$!"
    $P339 = new ['Perl6Scalar'], $P338
    setprop $P339, "rw", true
    .lex "$!", $P339
    .lex "call_sig", param_340
    new $P341, "Perl6Scalar"
    .lex "$_", $P341
    find_lex $P342, "call_sig"
    bind_llsig $P342
.annotate 'line', 24
    find_lex $P347, "@files"
    deref_unless_object $P348, $P347
    find_lex $P349, "$_"
    $P350 = $P348."push"($P349)
.annotate 'line', 23
    .return ($P350)
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "" :load :init :subid("post134") :outer("105_1297392838.30376")
.annotate 'line', 23
    .const 'Sub' $P334 = "105_1297392838.30376" 
    .local pmc block
    set block, $P334
    .const 'Sub' $P351 = "105_1297392838.30376" 
    .const 'Sub' $P352 = "106_1297392838.30376" 
    setprop $P351, "$!lazysig", $P352
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "_block343"  :anon :subid("106_1297392838.30376") :outer("105_1297392838.30376")
.annotate 'line', 23
    $P345 = allocate_llsig 1
    .local pmc signature_73
    set signature_73, $P345
    null $P0
    null $S0
    get_hll_global $P346, "Mu"
    set_llsig_elem signature_73, 0, "$_", 19456, $P346, $P0, $P0, $P0, $P0, $P0, $S0
    .local pmc signature
    set signature, signature_73
    .return (signature)
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "_block376"  :anon :subid("107_1297392838.30376") :outer("100_1297392838.30376")
    .param pmc param_385 :call_sig
.annotate 'line', 27
    .const 'Sub' $P400 = "109_1297392838.30376" 
    capture_lex $P400
    .const 'Sub' $P388 = "108_1297392838.30376" 
    capture_lex $P388
    .local pmc true
    true = get_hll_global 'True'
    .lex "__CANDIDATE_LIST__", $P378
    find_lex_skip_current $P379, "$_"
    $P380 = new ['Perl6Scalar'], $P379
    setprop $P380, "rw", true
    .lex "$_", $P380
    find_lex_skip_current $P381, "$/"
    $P382 = new ['Perl6Scalar'], $P381
    setprop $P382, "rw", true
    .lex "$/", $P382
    find_lex_skip_current $P383, "$!"
    $P384 = new ['Perl6Scalar'], $P383
    setprop $P384, "rw", true
    .lex "$!", $P384
    .lex "call_sig", param_385
    find_lex $P386, "call_sig"
    bind_llsig $P386
.annotate 'line', 28
    find_lex $P390, "$dir"
    set $S391, $P390
    new $P392, 'String'
    set $P392, $S391
    new $P393, "Str"
    assign $P393, "/bin"
    concat $P394, $P392, $P393
    $P395 = "&find"($P394 :named("dir"))
    deref_unless_object $P396, $P395
    $P397 = $P396."list"()
    $P398 = "&flat"($P397)
    .const 'Sub' $P400 = "109_1297392838.30376" 
    capture_lex $P400
    get_hll_global $P419, "Block"
    .const 'Sub' $P420 = "110_1297392838.30376" 
    $P421 = $P400."!get_closure"($P419, $P420, 0)
    $P422 = $P398."map"($P421)
    $P423 = "&eager"($P422)
.annotate 'line', 27
    .return ($P423)
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "" :load :init :subid("post135") :outer("107_1297392838.30376")
.annotate 'line', 27
    .const 'Sub' $P377 = "107_1297392838.30376" 
    .local pmc block
    set block, $P377
    .const 'Sub' $P424 = "107_1297392838.30376" 
    .const 'Sub' $P425 = "108_1297392838.30376" 
    setprop $P424, "$!lazysig", $P425
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "_block387"  :anon :subid("108_1297392838.30376") :outer("107_1297392838.30376")
.annotate 'line', 27
    $P389 = allocate_llsig 0
    .local pmc signature_78
    set signature_78, $P389
    null $P0
    null $S0
    .local pmc signature
    set signature, signature_78
    .return (signature)
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "_block399"  :anon :subid("109_1297392838.30376") :outer("107_1297392838.30376")
    .param pmc param_406 :call_sig
.annotate 'line', 28
    .const 'Sub' $P410 = "110_1297392838.30376" 
    capture_lex $P410
    .local pmc true
    true = get_hll_global 'True'
    .lex "__CANDIDATE_LIST__", $P401
    find_lex_skip_current $P402, "$/"
    $P403 = new ['Perl6Scalar'], $P402
    setprop $P403, "rw", true
    .lex "$/", $P403
    find_lex_skip_current $P404, "$!"
    $P405 = new ['Perl6Scalar'], $P404
    setprop $P405, "rw", true
    .lex "$!", $P405
    .lex "call_sig", param_406
    new $P407, "Perl6Scalar"
    .lex "$_", $P407
    find_lex $P408, "call_sig"
    bind_llsig $P408
.annotate 'line', 29
    find_lex $P413, "@files"
    deref_unless_object $P414, $P413
    find_lex $P415, "$_"
    $P416 = $P414."push"($P415)
.annotate 'line', 28
    .return ($P416)
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "" :load :init :subid("post136") :outer("109_1297392838.30376")
.annotate 'line', 28
    .const 'Sub' $P400 = "109_1297392838.30376" 
    .local pmc block
    set block, $P400
    .const 'Sub' $P417 = "109_1297392838.30376" 
    .const 'Sub' $P418 = "110_1297392838.30376" 
    setprop $P417, "$!lazysig", $P418
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "_block409"  :anon :subid("110_1297392838.30376") :outer("109_1297392838.30376")
.annotate 'line', 28
    $P411 = allocate_llsig 1
    .local pmc signature_77
    set signature_77, $P411
    null $P0
    null $S0
    get_hll_global $P412, "Mu"
    set_llsig_elem signature_77, 0, "$_", 19456, $P412, $P0, $P0, $P0, $P0, $P0, $S0
    .local pmc signature
    set signature, signature_77
    .return (signature)
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "_block428"  :anon :subid("111_1297392838.30376") :outer("100_1297392838.30376")
    .param pmc param_436 :call_sig
.annotate 'line', 32
    .const 'Sub' $P524 = "117_1297392838.30376" 
    capture_lex $P524
    .const 'Sub' $P481 = "114_1297392838.30376" 
    capture_lex $P481
    .const 'Sub' $P449 = "113_1297392838.30376" 
    capture_lex $P449
    .const 'Sub' $P440 = "112_1297392838.30376" 
    capture_lex $P440
    .local pmc true
    true = get_hll_global 'True'
    .lex "__CANDIDATE_LIST__", $P430
    find_lex_skip_current $P431, "$/"
    $P432 = new ['Perl6Scalar'], $P431
    setprop $P432, "rw", true
    .lex "$/", $P432
    find_lex_skip_current $P433, "$!"
    $P434 = new ['Perl6Scalar'], $P433
    setprop $P434, "rw", true
    .lex "$!", $P434
.annotate 'line', 33
    new $P435, "Perl6Scalar"
    setprop $P435, "rw", true
    setprop $P435, "scalar", true
    .lex "$target-dir", $P435
    .lex "call_sig", param_436
    new $P437, "Perl6Scalar"
    .lex "$file", $P437
    find_lex $P438, "call_sig"
    bind_llsig $P438
    find_lex $P443, "$target-dir"
    find_lex $P444, "$file"
    deref_unless_object $P445, $P444
    $P446 = $P445."dir"()
    deref_unless_object $P447, $P446
    .const 'Sub' $P449 = "113_1297392838.30376" 
    capture_lex $P449
    get_hll_global $P455, "Regex"
    $P456 = $P449."!get_closure"($P455, 0)
    find_lex $P457, "$dest"
    set $S458, $P457
    new $P459, 'String'
    set $P459, $S458
    new $P460, "Str"
    assign $P460, "/"
    concat $P461, $P459, $P460
    $P462 = $P447."subst"($P456, $P461)
    "&infix:<=>"($P443, $P462)
.annotate 'line', 34
    find_lex $P463, "$target-dir"
    "&mkdirp"($P463)
.annotate 'line', 35
    find_lex $P465, "$v"
    if $P465, if_464
    get_hll_global $P470, "Nil"
    goto if_464_end
  if_464:
    new $P466, "Str"
    assign $P466, "Installing "
    find_lex $P467, "$file"
    set $S468, $P467
    concat $P469, $P466, $S468
    "&say"($P469)
  if_464_end:
.annotate 'line', 36
    $P474 = "!find_contextual"("$*VM")
    new $P475, "Str"
    assign $P475, "config"
    $P476 = "!postcircumfix:<{ }>"($P474, $P475)
    new $P477, "Str"
    assign $P477, "osname"
    $P478 = "!postcircumfix:<{ }>"($P476, $P477)
    new $P479, "Str"
    assign $P479, "MSWin32"
    $P473 = "&infix:<eq>"($P478, $P479)
  chain_end_142:
    if $P473, if_472
.annotate 'line', 38
    .const 'Sub' $P524 = "117_1297392838.30376" 
    capture_lex $P524
    $P565 = $P524()
    set $P471, $P565
.annotate 'line', 36
    goto if_472_end
  if_472:
    .const 'Sub' $P481 = "114_1297392838.30376" 
    capture_lex $P481
    $P522 = $P481()
    set $P471, $P522
  if_472_end:
.annotate 'line', 32
    .return ($P471)
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "" :load :init :subid("post137") :outer("111_1297392838.30376")
.annotate 'line', 32
    .const 'Sub' $P429 = "111_1297392838.30376" 
    .local pmc block
    set block, $P429
    .const 'Sub' $P566 = "111_1297392838.30376" 
    .const 'Sub' $P567 = "112_1297392838.30376" 
    setprop $P566, "$!lazysig", $P567
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "_block439"  :anon :subid("112_1297392838.30376") :outer("111_1297392838.30376")
.annotate 'line', 33
    $P441 = allocate_llsig 1
    .local pmc signature_81
    set signature_81, $P441
    null $P0
    null $S0
    get_hll_global $P442, "Mu"
    set_llsig_elem signature_81, 0, "$file", 128, $P442, $P0, $P0, $P0, $P0, $P0, $S0
    .local pmc signature
    set signature, signature_81
    .return (signature)
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "_block448"  :anon :subid("113_1297392838.30376") :method :outer("111_1297392838.30376")
.annotate 'line', 33
    .local string rx450_tgt
    .local int rx450_pos
    .local int rx450_off
    .local int rx450_eos
    .local int rx450_rep
    .local pmc rx450_cur
    .local pmc rx450_debug
    (rx450_cur, rx450_pos, rx450_tgt, $I10) = self."!cursor_start"()
    getattribute rx450_debug, rx450_cur, "$!debug"
    .lex unicode:"$\x{a2}", rx450_cur
    .local pmc match
    .lex "$/", match
    length rx450_eos, rx450_tgt
    gt rx450_pos, rx450_eos, rx450_done
    set rx450_off, 0
    lt rx450_pos, 2, rx450_start
    sub rx450_off, rx450_pos, 1
    substr rx450_tgt, rx450_tgt, rx450_off
  rx450_start:
    eq $I10, 1, rx450_restart
    if_null rx450_debug, debug_138
    rx450_cur."!cursor_debug"("START", "")
  debug_138:
    $I10 = self.'from'()
    ne $I10, -1, rxscan451_done
    goto rxscan451_scan
  rxscan451_loop:
    ($P10) = rx450_cur."from"()
    inc $P10
    set rx450_pos, $P10
    ge rx450_pos, rx450_eos, rxscan451_done
  rxscan451_scan:
    set_addr $I10, rxscan451_loop
    rx450_cur."!mark_push"(0, rx450_pos, $I10)
  rxscan451_done:
  # rxanchor bos
    ne rx450_pos, 0, rx450_fail
  # rx subrule "!INTERPOLATE" subtype=method negate=
    rx450_cur."!cursor_pos"(rx450_pos)
    find_lex $P453, "$dir"
    $P10 = rx450_cur."!INTERPOLATE"($P453)
    unless $P10, rx450_fail
    goto rxsubrule454_pass
  rxsubrule454_back:
    $P10 = $P10."!cursor_next"()
    unless $P10, rx450_fail
  rxsubrule454_pass:
    set_addr $I10, rxsubrule454_back
    rx450_cur."!mark_push"(0, rx450_pos, $I10, $P10)
    rx450_pos = $P10."pos"()
  # rx literal  "/"
    add $I11, rx450_pos, 1
    gt $I11, rx450_eos, rx450_fail
    sub $I11, rx450_pos, rx450_off
    ord $I11, rx450_tgt, $I11
    ne $I11, 47, rx450_fail
    add rx450_pos, 1
  # rx pass
    rx450_cur."!cursor_pass"(rx450_pos, "")
    if_null rx450_debug, debug_139
    rx450_cur."!cursor_debug"("PASS", "", " at pos=", rx450_pos)
  debug_139:
    rx450_cur."!cursor_backtrack"()
    .return (rx450_cur)
  rx450_restart:
    if_null rx450_debug, debug_140
    rx450_cur."!cursor_debug"("NEXT", "")
  debug_140:
  rx450_fail:
    (rx450_rep, rx450_pos, $I10, $P10) = rx450_cur."!mark_fail"(0)
    lt rx450_pos, -1, rx450_done
    eq rx450_pos, -1, rx450_fail
    jump $I10
  rx450_done:
    rx450_cur."!cursor_fail"()
    if_null rx450_debug, debug_141
    rx450_cur."!cursor_debug"("FAIL", "")
  debug_141:
    .return (rx450_cur)
    .return ()
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "_block523"  :anon :subid("117_1297392838.30376") :outer("111_1297392838.30376")
    .param pmc param_532 :call_sig
.annotate 'line', 38
    .const 'Sub' $P548 = "119_1297392838.30376" 
    capture_lex $P548
    .const 'Sub' $P535 = "118_1297392838.30376" 
    capture_lex $P535
    .local pmc true
    true = get_hll_global 'True'
    .lex "__CANDIDATE_LIST__", $P525
    find_lex_skip_current $P526, "$_"
    $P527 = new ['Perl6Scalar'], $P526
    setprop $P527, "rw", true
    .lex "$_", $P527
    find_lex_skip_current $P528, "$/"
    $P529 = new ['Perl6Scalar'], $P528
    setprop $P529, "rw", true
    .lex "$/", $P529
    find_lex_skip_current $P530, "$!"
    $P531 = new ['Perl6Scalar'], $P530
    setprop $P531, "rw", true
    .lex "$!", $P531
    .lex "call_sig", param_532
    find_lex $P533, "call_sig"
    bind_llsig $P533
.annotate 'line', 39
    new $P537, "Str"
    assign $P537, "cp "
    find_lex $P538, "$file"
    set $S539, $P538
    $S540 = "&infix:<~>"($S539, " ")
    concat $P541, $P537, $S540
    find_lex $P542, "$target-dir"
    set $S543, $P542
    concat $P544, $P541, $S543
    new $P545, "Str"
    assign $P545, "/"
    concat $P546, $P544, $P545
    .const 'Sub' $P548 = "119_1297392838.30376" 
    capture_lex $P548
    $P559 = $P548()
    set $S560, $P559
    concat $P561, $P546, $S560
    $P562 = "&run"($P561)
.annotate 'line', 38
    .return ($P562)
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "" :load :init :subid("post143") :outer("117_1297392838.30376")
.annotate 'line', 38
    .const 'Sub' $P524 = "117_1297392838.30376" 
    .local pmc block
    set block, $P524
    .const 'Sub' $P563 = "117_1297392838.30376" 
    .const 'Sub' $P564 = "118_1297392838.30376" 
    setprop $P563, "$!lazysig", $P564
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "_block534"  :anon :subid("118_1297392838.30376") :outer("117_1297392838.30376")
.annotate 'line', 38
    $P536 = allocate_llsig 0
    .local pmc signature_80
    set signature_80, $P536
    null $P0
    null $S0
    .local pmc signature
    set signature, signature_80
    .return (signature)
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "_block547"  :anon :subid("119_1297392838.30376") :outer("117_1297392838.30376")
.annotate 'line', 39
    .local pmc true
    true = get_hll_global 'True'
    .lex "__CANDIDATE_LIST__", $P549
    find_lex_skip_current $P550, "$_"
    $P551 = new ['Perl6Scalar'], $P550
    setprop $P551, "rw", true
    .lex "$_", $P551
    find_lex_skip_current $P552, "$/"
    $P553 = new ['Perl6Scalar'], $P552
    setprop $P553, "rw", true
    .lex "$/", $P553
    find_lex_skip_current $P554, "$!"
    $P555 = new ['Perl6Scalar'], $P554
    setprop $P555, "rw", true
    .lex "$!", $P555
    find_lex $P556, "$file"
    deref_unless_object $P557, $P556
    $P558 = $P557."name"()
    .return ($P558)
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "_block480"  :anon :subid("114_1297392838.30376") :outer("111_1297392838.30376")
    .param pmc param_489 :call_sig
.annotate 'line', 36
    .const 'Sub' $P505 = "116_1297392838.30376" 
    capture_lex $P505
    .const 'Sub' $P492 = "115_1297392838.30376" 
    capture_lex $P492
    .local pmc true
    true = get_hll_global 'True'
    .lex "__CANDIDATE_LIST__", $P482
    find_lex_skip_current $P483, "$_"
    $P484 = new ['Perl6Scalar'], $P483
    setprop $P484, "rw", true
    .lex "$_", $P484
    find_lex_skip_current $P485, "$/"
    $P486 = new ['Perl6Scalar'], $P485
    setprop $P486, "rw", true
    .lex "$/", $P486
    find_lex_skip_current $P487, "$!"
    $P488 = new ['Perl6Scalar'], $P487
    setprop $P488, "rw", true
    .lex "$!", $P488
    .lex "call_sig", param_489
    find_lex $P490, "call_sig"
    bind_llsig $P490
.annotate 'line', 37
    new $P494, "Str"
    assign $P494, "copy "
    find_lex $P495, "$file"
    set $S496, $P495
    $S497 = "&infix:<~>"($S496, " ")
    concat $P498, $P494, $S497
    find_lex $P499, "$target-dir"
    set $S500, $P499
    concat $P501, $P498, $S500
    new $P502, "Str"
    assign $P502, "/"
    concat $P503, $P501, $P502
    .const 'Sub' $P505 = "116_1297392838.30376" 
    capture_lex $P505
    $P516 = $P505()
    set $S517, $P516
    concat $P518, $P503, $S517
    $P519 = "&run"($P518)
.annotate 'line', 36
    .return ($P519)
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "" :load :init :subid("post144") :outer("114_1297392838.30376")
.annotate 'line', 36
    .const 'Sub' $P481 = "114_1297392838.30376" 
    .local pmc block
    set block, $P481
    .const 'Sub' $P520 = "114_1297392838.30376" 
    .const 'Sub' $P521 = "115_1297392838.30376" 
    setprop $P520, "$!lazysig", $P521
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "_block491"  :anon :subid("115_1297392838.30376") :outer("114_1297392838.30376")
.annotate 'line', 36
    $P493 = allocate_llsig 0
    .local pmc signature_79
    set signature_79, $P493
    null $P0
    null $S0
    .local pmc signature
    set signature, signature_79
    .return (signature)
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "_block504"  :anon :subid("116_1297392838.30376") :outer("114_1297392838.30376")
.annotate 'line', 37
    .local pmc true
    true = get_hll_global 'True'
    .lex "__CANDIDATE_LIST__", $P506
    find_lex_skip_current $P507, "$_"
    $P508 = new ['Perl6Scalar'], $P507
    setprop $P508, "rw", true
    .lex "$_", $P508
    find_lex_skip_current $P509, "$/"
    $P510 = new ['Perl6Scalar'], $P509
    setprop $P510, "rw", true
    .lex "$/", $P510
    find_lex_skip_current $P511, "$!"
    $P512 = new ['Perl6Scalar'], $P511
    setprop $P512, "rw", true
    .lex "$!", $P512
    find_lex $P513, "$file"
    deref_unless_object $P514, $P513
    $P515 = $P514."name"()
    .return ($P515)
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "_block240"  :anon :subid("98_1297392838.30376") :outer("94_1297392838.30376")
    .param pmc param_250 :call_sig
.annotate 'line', 14
    .const 'Sub' $P253 = "99_1297392838.30376" 
    capture_lex $P253
    .local pmc true
    true = get_hll_global 'True'
    .lex "__CANDIDATE_LIST__", $P242
    find_lex_skip_current $P243, "$_"
    $P244 = new ['Perl6Scalar'], $P243
    setprop $P244, "rw", true
    .lex "$_", $P244
    find_lex_skip_current $P245, "$/"
    $P246 = new ['Perl6Scalar'], $P245
    setprop $P246, "rw", true
    .lex "$/", $P246
    find_lex_skip_current $P247, "$!"
    $P248 = new ['Perl6Scalar'], $P247
    setprop $P248, "rw", true
    .lex "$!", $P248
.annotate 'line', 15
    new $P249, "Perl6Scalar"
    setprop $P249, "rw", true
    setprop $P249, "scalar", true
    .lex "$cwd", $P249
    .lex "call_sig", param_250
    find_lex $P251, "call_sig"
    bind_llsig $P251
    find_lex $P255, "$cwd"
    $P256 = "&cwd"()
    "&infix:<=>"($P255, $P256)
.annotate 'line', 16
    find_lex $P257, "$dir"
    "&chdir"($P257)
.annotate 'line', 17
    new $P259, "Str"
    assign $P259, "make install"
    $P260 = "&run"($P259)
    unless $P260, if_258_end
    new $P261, "Str"
    assign $P261, "'make install' failed"
    "&die"($P261)
  if_258_end:
.annotate 'line', 18
    find_lex $P262, "$cwd"
    $P263 = "&chdir"($P262)
.annotate 'line', 14
    .return ($P263)
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "" :load :init :subid("post145") :outer("98_1297392838.30376")
.annotate 'line', 14
    .const 'Sub' $P241 = "98_1297392838.30376" 
    .local pmc block
    set block, $P241
    .const 'Sub' $P264 = "98_1297392838.30376" 
    .const 'Sub' $P265 = "99_1297392838.30376" 
    setprop $P264, "$!lazysig", $P265
.end


.HLL "perl6"

.namespace ["Module";"Install"]
.sub "_block252"  :anon :subid("99_1297392838.30376") :outer("98_1297392838.30376")
.annotate 'line', 15
    $P254 = allocate_llsig 0
    .local pmc signature_70
    set signature_70, $P254
    null $P0
    null $S0
    .local pmc signature
    set signature, signature_70
    .return (signature)
.end


.HLL "perl6"

.namespace []
.sub "_block596" :load :init :anon :subid("120_1297392838.30376")
.annotate 'line', 1
    $P598 = "!fire_phasers"("CHECK")
    .return ($P598)
.end


.HLL "perl6"

.namespace []
.sub "_block599" :load :anon :subid("121_1297392838.30376")
.annotate 'line', 1
    .const 'Sub' $P601 = "85_1297392838.30376" 
    $P602 = "!UNIT_START"($P601)
    .return ($P602)
.end

