diff options
Diffstat (limited to 'src/lib/libcrypto/util/mklink.pl')
-rw-r--r-- | src/lib/libcrypto/util/mklink.pl | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/src/lib/libcrypto/util/mklink.pl b/src/lib/libcrypto/util/mklink.pl index eacc327882..d9bc98aab8 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 | ||