| … | |
… | |
| 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 $@; |
