Index: openssl/util/mklink.pl |
=================================================================== |
--- openssl/util/mklink.pl (revision 105093) |
+++ openssl/util/mklink.pl (working copy) |
@@ -15,21 +15,13 @@ |
# Apart from this, this script should be able to handle even the most |
# pathological cases. |
-my $pwd; |
-eval 'use Cwd;'; |
-if ($@) |
- { |
- $pwd = `pwd`; |
- } |
-else |
- { |
- $pwd = getcwd(); |
- } |
+use Cwd; |
my $from = shift; |
my @files = @ARGV; |
my @from_path = split(/[\\\/]/, $from); |
+my $pwd = getcwd(); |
chomp($pwd); |
my @pwd_path = split(/[\\\/]/, $pwd); |
@@ -59,6 +51,7 @@ |
my $file; |
$symlink_exists=eval {symlink("",""); 1}; |
+if ($^O eq "msys") { $symlink_exists=0 }; |
foreach $file (@files) { |
my $err = ""; |
if ($symlink_exists) { |