| 1143 |
} |
} |
| 1144 |
|
|
| 1145 |
if (-l "$infile") { |
if (-l "$infile") { |
| 1146 |
symlink (readlink $infile, "$destdir/$filename") |
# the link target might be relative, so we need to start from |
| 1147 |
|| die "symlink(readlink $infile, $destdir/$filename) failed: $!"; |
# the directory of $infile for the link |
| 1148 |
|
symlink (Cwd::abs_path(dirname($infile)) . "/" . readlink($infile), "$destdir/$filename") |
| 1149 |
|
|| die "symlink(dirname($infile) . \"/\" . readlink($infile), $destdir/$filename) failed: $!"; |
| 1150 |
} else { |
} else { |
| 1151 |
if (! open (IN, $infile)) { |
if (! open (IN, $infile)) { |
| 1152 |
warn "open($infile) failed, not copying: $!"; |
warn "open($infile) failed, not copying: $!"; |
Parent Directory
| 
Revision Log
| 
Patch