diff options
author | Kris Kennaway <kris@FreeBSD.org> | 2001-05-20 03:07:21 +0000 |
---|---|---|
committer | Kris Kennaway <kris@FreeBSD.org> | 2001-05-20 03:07:21 +0000 |
commit | 5740a5e34c49bfc6885d8602958155fc91b62765 (patch) | |
tree | af21ae7d0d7d432ead379f1689adfee9ffe965f6 /crypto/openssl/util/mklink.pl | |
parent | de7cdddab120ecc07d412749bfb3f191c4e0afe3 (diff) | |
download | src-5740a5e34c49bfc6885d8602958155fc91b62765.tar.gz src-5740a5e34c49bfc6885d8602958155fc91b62765.zip |
Initial import of OpenSSL 0.9.6a
Notes
Notes:
svn path=/vendor-crypto/openssl/dist/; revision=76866
Diffstat (limited to 'crypto/openssl/util/mklink.pl')
-rwxr-xr-x | crypto/openssl/util/mklink.pl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/crypto/openssl/util/mklink.pl b/crypto/openssl/util/mklink.pl index d7b997ada723..9e9c9a514677 100755 --- a/crypto/openssl/util/mklink.pl +++ b/crypto/openssl/util/mklink.pl @@ -48,8 +48,13 @@ foreach $dirname (@from_path) { my $to = join('/', @to_path); my $file; +$symlink_exists=eval {symlink("",""); 1}; foreach $file (@files) { my $err = ""; - symlink("$to/$file", "$from/$file") or $err = " [$!]"; + if ($symlink_exists) { + symlink("$to/$file", "$from/$file") or $err = " [$!]"; + } else { + system ("cp", "$file", "$from/$file") and $err = " [$!]"; + } print $file . " => $from/$file$err\n"; } |