wbrawner/openssl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use getcwd() because it works under MSYS but pwd doesn't.

Browse source
This commit is contained in:
Dr. Stephen Henson 2006-02-03 23:55:26 +00:00
parent a5319427a2
commit b1971b067a
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
util/mklink.pl
View file

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