… | … | ||
---|---|---|---|
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 |