| … | … | ||
|---|---|---|---|
| 49 | } | 49 | } |
| 50 | 50 | ||
| 51 | sub find_rcfile($) { | 51 | sub find_rcfile($) { |
| 52 | my $path; | 52 | my $path; |
| 53 | 53 | ||
| 54 | for (@INC) { | 54 | for (grep !ref, @INC) { |
| 55 | $path = "$_/CFClient/resources/$_[0]"; | 55 | $path = "$_/CFClient/resources/$_[0]"; |
| 56 | return $path if -r $path; | 56 | return $path if -r $path; |
| 57 | } | 57 | } |
| 58 | 58 | ||
| 59 | die "FATAL: can't find required file $_[0]\n"; | 59 | die "FATAL: can't find required file $_[0]\n"; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |