… | |
… | |
83 | |
83 | |
84 | while (<$R_TRACER>) { |
84 | while (<$R_TRACER>) { |
85 | if (/use (.*)$/) { |
85 | if (/use (.*)$/) { |
86 | my $mod = $1; |
86 | my $mod = $1; |
87 | my $pkg = ++$pkg; |
87 | my $pkg = ++$pkg; |
88 | my $eval = $mod = $mod =~ /[^A-Za-z0-9_:]/ |
88 | my $eval = $mod =~ /[^A-Za-z0-9_:]/ |
89 | ? "require $mod" |
89 | ? "require $mod" |
90 | : "{ package $pkg; use $mod; }"; |
90 | : "{ package $pkg; use $mod; }"; |
91 | eval $eval; |
91 | eval $eval; |
92 | warn "ERROR: $@ (while loading '$mod')\n" |
92 | warn "ERROR: $@ (while loading '$mod')\n" |
93 | if $@; |
93 | if $@; |
… | |
… | |
270 | sub cmd_boot { |
270 | sub cmd_boot { |
271 | $pm{"&&boot"} = $_[0]; |
271 | $pm{"&&boot"} = $_[0]; |
272 | } |
272 | } |
273 | |
273 | |
274 | sub cmd_add { |
274 | sub cmd_add { |
275 | $_[0] =~ /^(.*)(?:\s+(\S+))$/ |
275 | $_[0] =~ /^(.*?)(?:\s+(\S+))?$/ |
276 | or die "$_[0]: cannot parse"; |
276 | or die "$_[0]: cannot parse"; |
277 | |
277 | |
278 | my $file = $1; |
278 | my $file = $1; |
279 | my $as = defined $2 ? $2 : "&$1"; |
279 | my $as = defined $2 ? $2 : "&$1"; |
280 | |
280 | |