diff options
Diffstat (limited to 'lib/libcrypto/util/mklink.pl')
| -rw-r--r-- | lib/libcrypto/util/mklink.pl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/libcrypto/util/mklink.pl b/lib/libcrypto/util/mklink.pl index c8653cecc37..182732d9594 100644 --- a/lib/libcrypto/util/mklink.pl +++ b/lib/libcrypto/util/mklink.pl @@ -14,13 +14,16 @@ # not contain symbolic links and that the parent of / is never referenced. # Apart from this, this script should be able to handle even the most # pathological cases. +# + +use Cwd; my $from = shift; my @files = @ARGV; my @from_path = split(/[\\\/]/, $from); -my $pwd = `pwd`; -chop($pwd); +my $pwd = getcwd(); +chomp($pwd); my @pwd_path = split(/[\\\/]/, $pwd); my @to_path = (); |