Report "error" (usually just "File exists", which is harmless)
authorBodo Möller <bodo@openssl.org>
Wed, 14 Jun 2000 10:09:46 +0000 (10:09 +0000)
committerBodo Möller <bodo@openssl.org>
Wed, 14 Jun 2000 10:09:46 +0000 (10:09 +0000)
when symlink() fails.

util/mklink.pl

index de555820ec9ef4556f85ff4534d9179309a0bf12..d7b997ada72371edeac5009405c0d652b0038840 100755 (executable)
@@ -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";
 }