diff options
-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 = (); |