diff options
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 d7b997a..9e9c9a5 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"; } |
