# absolute paths have empty first element due to leading /
shift(@path) if($path[0] eq "");
shift(@rel) if($rel[0] eq "");
- if($path[0] ne $rel[0])
- {
- # no path in common, return absolute
- # should never happen
- # FIXME
- return $name;
- }
# f: /home/foo/bar/baz.mp3
# r: /home/ianb/music/albums
while(@path && @rel && ($path[0] eq $rel[0]))