… | |
… | |
1352 | |
1352 | |
1353 | # the original (read-only) location |
1353 | # the original (read-only) location |
1354 | sub load_path { |
1354 | sub load_path { |
1355 | my ($self) = @_; |
1355 | my ($self) = @_; |
1356 | |
1356 | |
1357 | "$MAPDIR($self->{path}" |
1357 | "$MAPDIR/$self->{path}.map" |
1358 | } |
1358 | } |
1359 | |
1359 | |
1360 | # the temporary/swap location |
1360 | # the temporary/swap location |
1361 | sub save_path { |
1361 | sub save_path { |
1362 | my ($self) = @_; |
1362 | my ($self) = @_; |
1363 | |
1363 | |
1364 | (my $path = $_[0]{path}) =~ s/\//$PATH_SEP/g; |
1364 | (my $path = $_[0]{path}) =~ s/\//$PATH_SEP/g; |
1365 | "$TMPDIR/$path" |
1365 | "$TMPDIR/$path.map" |
1366 | } |
1366 | } |
1367 | |
1367 | |
1368 | # the unique path, undef == no special unique path |
1368 | # the unique path, undef == no special unique path |
1369 | sub uniq_path { |
1369 | sub uniq_path { |
1370 | my ($self) = @_; |
1370 | my ($self) = @_; |