diff options
Diffstat (limited to 'src/lib/libcrypto/util/mklink.pl')
-rw-r--r-- | src/lib/libcrypto/util/mklink.pl | 13 |
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 | ||
18 | my $pwd; | 18 | use Cwd; |
19 | eval 'use Cwd;'; | ||
20 | if ($@) | ||
21 | { | ||
22 | $pwd = `pwd`; | ||
23 | } | ||
24 | else | ||
25 | { | ||
26 | $pwd = getcwd(); | ||
27 | } | ||
28 | 19 | ||
29 | my $from = shift; | 20 | my $from = shift; |
30 | my @files = @ARGV; | 21 | my @files = @ARGV; |
31 | 22 | ||
32 | my @from_path = split(/[\\\/]/, $from); | 23 | my @from_path = split(/[\\\/]/, $from); |
24 | my $pwd = getcwd(); | ||
33 | chomp($pwd); | 25 | chomp($pwd); |
34 | my @pwd_path = split(/[\\\/]/, $pwd); | 26 | my @pwd_path = split(/[\\\/]/, $pwd); |
35 | 27 | ||
@@ -59,6 +51,7 @@ my $to = join('/', @to_path); | |||
59 | 51 | ||
60 | my $file; | 52 | my $file; |
61 | $symlink_exists=eval {symlink("",""); 1}; | 53 | $symlink_exists=eval {symlink("",""); 1}; |
54 | if ($^O eq "msys") { $symlink_exists=0 }; | ||
62 | foreach $file (@files) { | 55 | foreach $file (@files) { |
63 | my $err = ""; | 56 | my $err = ""; |
64 | if ($symlink_exists) { | 57 | if ($symlink_exists) { |