Lines Matching refs:tmp1
1005 my ($tmp1, $tmp2);
1007 $tmp1 = $file;
1009 while ($tmp2 = readlink($tmp1)) {
1012 $tmp2 = dirname($tmp1) . "/" . $tmp2;
1015 $tmp1 = $tmp2; #
1016 $tmp1 =~ s,/+,/,g; # get rid of ////
1017 $tmp1 =~ s,^\./,,g; # remove leading ./
1018 $tmp1 =~ s,/\./,/,g; # remove /./
1019 $tmp1 =~ s,/+,/,g; # get rid of //// again
1020 $tmp1 =~ s,/[^/]+/\.\./,/,g; # remove "abc/.."
1023 if (! -e $tmp1) {
1024 $tmp1 = $tmp2;
1026 if (! -e $tmp1) {
1031 return $tmp1;