| commit | 9ef876f2697d2a01fcce5cda6f0b0f80493b2bdd | [log] [tgz] |
|---|---|---|
| author | Bodo Möller <bodo@openssl.org> | Wed Jun 14 10:09:46 2000 +0000 |
| committer | Bodo Möller <bodo@openssl.org> | Wed Jun 14 10:09:46 2000 +0000 |
| tree | 10895011340116b85b7577caaa6647c3e11bf6ec | |
| parent | 24bec03beb1d97f7c7b3f0066f3a309800de435f [diff] [blame] |
Report "error" (usually just "File exists", which is harmless) when symlink() fails.
diff --git a/util/mklink.pl b/util/mklink.pl index de55582..d7b997a 100755 --- a/util/mklink.pl +++ b/util/mklink.pl
@@ -49,7 +49,7 @@ 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"; }