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