Commit 9ef876f2 authored by Bodo Möller's avatar Bodo Möller
Browse files

Report "error" (usually just "File exists", which is harmless) 

when symlink() fails.
parent 24bec03b

util/mklink.pl

+3 −3
Original line number Diff line number Diff line
@@ -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";

}