23 |
if (-l "$curr_dir/$file" && grep(/^\Q$file\E$/,@ignore) == 0) { |
if (-l "$curr_dir/$file" && grep(/^\Q$file\E$/,@ignore) == 0) { |
24 |
my $dest=readlink("$curr_dir/$file"); |
my $dest=readlink("$curr_dir/$file"); |
25 |
$dest="$curr_dir/$dest" if (substr($dest,0,1) ne "/"); |
$dest="$curr_dir/$dest" if (substr($dest,0,1) ne "/"); |
26 |
print "ln -sf $dest $curr_dir/$file\n"; |
print "ln -snf $dest $curr_dir/$file\n"; |
27 |
} elsif ((-f "$curr_dir/$file" || -d "$curr_dir/$file") && grep(/^\Q$file\E$/,@ignore) == 0 && -r "$curr_dir/$file") { |
} elsif ((-f "$curr_dir/$file" || -d "$curr_dir/$file") && grep(/^\Q$file\E$/,@ignore) == 0 && -r "$curr_dir/$file") { |
28 |
my (undef,undef,$mode,undef,$uid,$gid) = stat("$curr_dir/$file"); |
my (undef,undef,$mode,undef,$uid,$gid) = stat("$curr_dir/$file"); |
29 |
if ( $uid != $UID || $gid != $GID ) { |
if ( $uid != $UID || $gid != $GID ) { |