Lines Matching refs:destname
53 my $destname = $dest . '/' . $File::Find::name;
55 (mkdir $destname or error ("$destname: $!")) unless (-d $destname);
59 if (-l $destname) {
60 my $link2 = readlink $destname;
61 defined $link2 or error ("$destname: $!");
62 $link1 eq $link2 or error ("$destname: different symlinks");
63 } elsif (-e $destname) {
64 error ("$destname: symlink vs. real file");
66 symlink $link1,$destname or error ("$destname: $!");
69 error ("$destname: no idea how to handle special file");
70 } elsif (! -f $destname) {
71 system ("cp", "-p", $_, $destname) == 0 or $errors++;
72 } elsif (File::Compare::compare ($_, $destname) != 0) {