Don't resolve links to self forever

This commit is contained in:
Jamie Cameron
2009-08-27 10:11:14 -07:00
parent 7f30830358
commit b77922b1a4

View File

@@ -6478,7 +6478,11 @@ shift(@p);
for(my $i=0; $i<@p; $i++) {
my $sofar = "/".join("/", @p[0..$i]);
my $lnk = readlink($sofar);
if ($lnk =~ /^\//) {
if ($lnk eq $sofar) {
# Link to itself! Cannot do anything more really ..
last;
}
elsif ($lnk =~ /^\//) {
# Link is absolute..
return &resolve_links($lnk."/".join("/", @p[$i+1 .. $#p]));
}