| … | |
… | |
| 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"; |
| … | |
… | |
| 243 | = CFClient::load_image_inline $self->{image}; |
243 | = CFClient::load_image_inline $self->{image}; |
| 244 | } |
244 | } |
| 245 | |
245 | |
| 246 | my ($tw, $th) = @$self{qw(w h)}; |
246 | my ($tw, $th) = @$self{qw(w h)}; |
| 247 | |
247 | |
| 248 | unless ($tw && $th) { |
248 | unless ($tw > 0 && $th > 0) { |
| 249 | $tw = $th = 1; |
249 | $tw = $th = 1; |
| 250 | $data = "\x00" x 64; |
250 | $data = "\x00" x 64; |
| 251 | } |
251 | } |
| 252 | |
252 | |
| 253 | $self->{minified} = [CFClient::average $tw, $th, $data] |
253 | $self->{minified} = [CFClient::average $tw, $th, $data] |
