| … | … | ||
|---|---|---|---|
| 469 | } | 469 | } |
| 470 | 470 | ||
| 471 | sub cache_file($$&&) { | 471 | sub cache_file($$&&) { |
| 472 | my ($src, $cache, $load, $create) = @_; | 472 | my ($src, $cache, $load, $create) = @_; |
| 473 | 473 | ||
| 474 | warn "<@_>\n";#d# | ||
| 475 | |||
| 476 | my ($size, $mtime) = (stat $src)[7,9] | 474 | my ($size, $mtime) = (stat $src)[7,9] |
| 477 | or Carp::croak "$src: $!"; | 475 | or Carp::croak "$src: $!"; |
| 478 | 476 | ||
| 479 | if (-e $cache) { | 477 | if (-e $cache) { |
| 480 | my $ref = eval { load_ref $cache }; | 478 | my $ref = eval { load_ref $cache }; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |