projects
/
openssl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Engage SHA256/512 for PowerISA 2.07.
[openssl.git]
/
util
/
mklink.pl
diff --git
a/util/mklink.pl
b/util/mklink.pl
index 9386da7aa4c3a3f0f02e3d32583c06b0684f6e8b..61db12c68f3156475f4f44e2dde2e01d8be001ee 100755
(executable)
--- 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.
# 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 $from = shift;
my @files = @ARGV;
my @from_path = split(/[\\\/]/, $from);
-my $pwd =
`pwd`
;
-chop($pwd);
+my $pwd =
getcwd()
;
+cho
m
p($pwd);
my @pwd_path = split(/[\\\/]/, $pwd);
my @to_path = ();
my @pwd_path = split(/[\\\/]/, $pwd);
my @to_path = ();
@@
-49,9
+51,11
@@
my $to = join('/', @to_path);
my $file;
$symlink_exists=eval {symlink("",""); 1};
my $file;
$symlink_exists=eval {symlink("",""); 1};
+if ($^O eq "msys") { $symlink_exists=0 };
foreach $file (@files) {
my $err = "";
if ($symlink_exists) {
foreach $file (@files) {
my $err = "";
if ($symlink_exists) {
+ unlink "$from/$file";
symlink("$to/$file", "$from/$file") or $err = " [$!]";
} else {
unlink "$from/$file";
symlink("$to/$file", "$from/$file") or $err = " [$!]";
} else {
unlink "$from/$file";