diff options
author | Bodo Möller <bodo@openssl.org> | 2000-06-14 10:09:46 +0000 |
---|---|---|
committer | Bodo Möller <bodo@openssl.org> | 2000-06-14 10:09:46 +0000 |
commit | 9ef876f2697d2a01fcce5cda6f0b0f80493b2bdd (patch) | |
tree | 10895011340116b85b7577caaa6647c3e11bf6ec /util/mklink.pl | |
parent | 24bec03beb1d97f7c7b3f0066f3a309800de435f (diff) |
Report "error" (usually just "File exists", which is harmless)
when symlink() fails.
Diffstat (limited to 'util/mklink.pl')
-rwxr-xr-x | util/mklink.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/util/mklink.pl b/util/mklink.pl index de555820ec..d7b997ada7 100755 --- a/util/mklink.pl +++ b/util/mklink.pl @@ -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"; } |