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