Report "error" (usually just "File exists", which is harmless)
when symlink() fails.
This commit is contained in:
parent
24bec03beb
commit
9ef876f269
@ -49,7 +49,7 @@ my $to = join('/', @to_path);
|
||||
|
||||
my $file;
|
||||
foreach $file (@files) {
|
||||
# print "ln -s $to/$file $from/$file\n";
|
||||
symlink("$to/$file", "$from/$file");
|
||||
print $file . " => $from/$file\n";
|
||||
my $err = "";
|
||||
symlink("$to/$file", "$from/$file") or $err = " [$!]";
|
||||
print $file . " => $from/$file$err\n";
|
||||
}
|
||||
|
Loading…
x
Reference in New Issue
Block a user