From 9ef876f2697d2a01fcce5cda6f0b0f80493b2bdd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bodo=20M=C3=B6ller?= <bodo@openssl.org>
Date: Wed, 14 Jun 2000 10:09:46 +0000
Subject: Report "error" (usually just "File exists", which is harmless) when
 symlink() fails.

---
 util/mklink.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'util')

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";
 }
-- 
cgit v1.2.3