… | … | ||
---|---|---|---|
65 | } | 65 | } |
66 | 66 | ||
67 | sub map2abs { | 67 | sub map2abs { |
68 | my ($dest, $mape) = @_; | 68 | my ($dest, $mape) = @_; |
69 | 69 | ||
70 | $mappath = abs_path $mappath; | ||
70 | my $dir; | 71 | my $dir; |
71 | if (File::Spec->file_name_is_absolute($dest)) { | 72 | if (File::Spec->file_name_is_absolute($dest)) { |
72 | $dir = catdir ($::CFG->{MAPDIR}, $dest); | 73 | $dir = catdir ($::CFG->{MAPDIR}, $dest); |
73 | } else { | 74 | } else { |
74 | my ($v, $p, $f) = File::Spec->splitpath ($mape->{path}); | 75 | my ($v, $p, $f) = File::Spec->splitpath ($mape->{path}); |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |