diff options
author | Dr. Stephen Henson <steve@openssl.org> | 2006-02-09 12:29:21 +0000 |
---|---|---|
committer | Dr. Stephen Henson <steve@openssl.org> | 2006-02-09 12:29:21 +0000 |
commit | 07bb51b6b4961108a97ca0dad9f3e82418c1b0e0 (patch) | |
tree | 18abe2bf59b7b2c3a0e788f76f861ec0edccbce6 /util | |
parent | bbab9b61dd742bac5f71d53e778f3b4abe17d0e4 (diff) |
Update from 0.9.7-stable.
Diffstat (limited to 'util')
-rwxr-xr-x | util/mklink.pl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/util/mklink.pl b/util/mklink.pl index c8653cecc3..d9bc98aab8 100755 --- a/util/mklink.pl +++ b/util/mklink.pl @@ -15,12 +15,14 @@ # 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 = (); |