| … | … | ||
|---|---|---|---|
| 124 | utf8::downgrade $path, 1; | 124 | utf8::downgrade $path, 1; |
| 125 | $data = "#line 1 $path\n$data"; | 125 | $data = "#line 1 $path\n$data"; |
| 126 | 126 | ||
| 127 | open my $fh, "<", \$data or die; | 127 | open my $fh, "<", \$data or die; |
| 128 | 128 | ||
| 129 | cf::get_slot 0.1, 10, "\@INC loader"; | 129 | cf::get_slot 0.1, 10, "\@INC loader" if $PID == $$; |
| 130 | 130 | ||
| 131 | $fh | 131 | $fh |
| 132 | } | 132 | } |
| 133 | 133 | ||
| 134 | # load file/directory, so we can load it synchronously | 134 | # load file/directory, so we can load it synchronously |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |