diff options
author | Richard Levitte <levitte@openssl.org> | 2001-04-04 15:50:30 +0000 |
---|---|---|
committer | Richard Levitte <levitte@openssl.org> | 2001-04-04 15:50:30 +0000 |
commit | 967d95f096e359174bb55733ff1cb56928710b07 (patch) | |
tree | 72d23fe346f3c45206cf8f6227bdca5e77afda2b /util/mklink.pl | |
parent | 26c7750827a47654d7243b200eb8f07d4559c9f4 (diff) |
Incorporate some changes that make OpenSSL compilable in CygWin.
Diffstat (limited to 'util/mklink.pl')
-rwxr-xr-x | util/mklink.pl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/util/mklink.pl b/util/mklink.pl index d7b997ada7..9e9c9a5146 100755 --- a/util/mklink.pl +++ b/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"; } |