summaryrefslogtreecommitdiff
path: root/src/lib/libcrypto/util/mklink.pl
diff options
context:
space:
mode:
Diffstat (limited to 'src/lib/libcrypto/util/mklink.pl')
-rw-r--r--src/lib/libcrypto/util/mklink.pl13
1 files changed, 3 insertions, 10 deletions
diff --git a/src/lib/libcrypto/util/mklink.pl b/src/lib/libcrypto/util/mklink.pl
index eacc327882..61db12c68f 100644
--- a/src/lib/libcrypto/util/mklink.pl
+++ b/src/lib/libcrypto/util/mklink.pl
@@ -15,21 +15,13 @@
15# Apart from this, this script should be able to handle even the most 15# Apart from this, this script should be able to handle even the most
16# pathological cases. 16# pathological cases.
17 17
18my $pwd; 18use Cwd;
19eval 'use Cwd;';
20if ($@)
21 {
22 $pwd = `pwd`;
23 }
24else
25 {
26 $pwd = getcwd();
27 }
28 19
29my $from = shift; 20my $from = shift;
30my @files = @ARGV; 21my @files = @ARGV;
31 22
32my @from_path = split(/[\\\/]/, $from); 23my @from_path = split(/[\\\/]/, $from);
24my $pwd = getcwd();
33chomp($pwd); 25chomp($pwd);
34my @pwd_path = split(/[\\\/]/, $pwd); 26my @pwd_path = split(/[\\\/]/, $pwd);
35 27
@@ -59,6 +51,7 @@ my $to = join('/', @to_path);
59 51
60my $file; 52my $file;
61$symlink_exists=eval {symlink("",""); 1}; 53$symlink_exists=eval {symlink("",""); 1};
54if ($^O eq "msys") { $symlink_exists=0 };
62foreach $file (@files) { 55foreach $file (@files) {
63 my $err = ""; 56 my $err = "";
64 if ($symlink_exists) { 57 if ($symlink_exists) {