… | |
… | |
24 | sub map2abs { |
24 | sub map2abs { |
25 | my ($dest, $mape) = @_; |
25 | my ($dest, $mape) = @_; |
26 | |
26 | |
27 | my $dir; |
27 | my $dir; |
28 | if (File::Spec->file_name_is_absolute($dest)) { |
28 | if (File::Spec->file_name_is_absolute($dest)) { |
29 | $dir = catdir ($Crossfire::LIB, 'maps', $dest); |
29 | $dir = catdir ($CFG->{MAPDIR}, $dest); |
30 | } else { |
30 | } else { |
31 | my ($v, $p, $f) = File::Spec->splitpath ($mape->{path}); |
31 | my ($v, $p, $f) = File::Spec->splitpath ($mape->{path}); |
32 | $dir = File::Spec->rel2abs ($dest, File::Spec->catpath ($v, $p)); |
32 | $dir = File::Spec->rel2abs ($dest, File::Spec->catpath ($v, $p)); |
33 | } |
33 | } |
34 | return $dir; |
34 | return $dir; |