… | |
… | |
1962 | my ($path, $origin, $load) = @_; |
1962 | my ($path, $origin, $load) = @_; |
1963 | |
1963 | |
1964 | $path = normalise $path, $origin && $origin->{path}; |
1964 | $path = normalise $path, $origin && $origin->{path}; |
1965 | |
1965 | |
1966 | if (my $map = $cf::MAP{$path}) { |
1966 | if (my $map = $cf::MAP{$path}) { |
1967 | return $map if $map->in_memory == cf::MAP_IN_MEMORY; |
1967 | return $map if !$load || $map->in_memory == cf::MAP_IN_MEMORY; |
1968 | } |
1968 | } |
1969 | |
1969 | |
1970 | $MAP_PREFETCH{$path} |= $load; |
1970 | $MAP_PREFETCH{$path} |= $load; |
1971 | |
1971 | |
1972 | $MAP_PREFETCHER ||= cf::async { |
1972 | $MAP_PREFETCHER ||= cf::async { |