equal
deleted
inserted
replaced
216 |
216 |
217 state %cache; |
217 state %cache; |
218 if (not defined $cache{fn} |
218 if (not defined $cache{fn} |
219 or ($cache{fn} ne $fn)) |
219 or ($cache{fn} ne $fn)) |
220 { |
220 { |
221 if (-e $fn) { |
221 Imager::get_block("$fn*" => \$cache{data}); |
222 Imager::get_block($fn => \$cache{data}); |
|
223 } |
|
224 elsif (-e "$fn.gz") { |
|
225 Imager::get_block("$fn.gz" => \$cache{data}); |
|
226 } |
|
227 elsif (-e "$fn.x") { |
|
228 Imager::get_block("$fn.x" => \$cache{data}); |
|
229 } |
|
230 elsif (-e "$fn.gz.x") { |
|
231 Imager::get_block("$fn.gz.x" => \$cache{data}); |
|
232 } |
|
233 else { |
|
234 die "Can't get file for $fn"; |
|
235 } |
|
236 $cache{fn} = $fn; |
222 $cache{fn} = $fn; |
237 } |
223 } |
238 |
224 |
239 return substr($cache{data}, $blockoffset, $length); |
225 return substr($cache{data}, $blockoffset, $length); |
240 |
226 |