| … | |
… | |
| 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 $@; |
| … | |
… | |
| 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 | |
|
|
| 281 | warn "<$file,$as>\n";#d# |
|
|
| 282 | |
280 | |
| 283 | $pm{$as} = $file; |
281 | $pm{$as} = $file; |
| 284 | $pmbin{$as} = 1 if $_[1]; |
282 | $pmbin{$as} = 1 if $_[1]; |
| 285 | } |
283 | } |
| 286 | |
284 | |
