romenskiy2012/curl
1
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2026-04-15 00:51:42 +03:00
Code Issues Projects Releases Packages Wiki Activity

pathhelp.pm: fix use of pwd -L in Msys environment

Browse source 
While Msys2 has a pwd binary which supports -L,
Msys1 only has a shell built-in with that feature.

Reviewed-by: Jay Satiro

Part of #6179
This commit is contained in:
Marc Hoersken 2020-11-11 21:20:20 +01:00
parent 24f850f4a4
commit b2b3c91ed7
No known key found for this signature in database
GPG key ID: 61E03CBED7BC859E
1 changed files with 25 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

28
tests/pathhelp.pm
View file

@ -372,7 +372,15 @@ sub sys_native_abs_path {
# Path is in relative form. Resolve relative directories in Unix form
# *BEFORE* converting to Win32 form otherwise paths like
# '../../../cygdrive/c/windows' will not be resolved.
my $cur_dir = `pwd -L`;
my $cur_dir;
# MSys shell has built-in command.
if($^O eq 'msys') {
$cur_dir = `bash -c 'pwd -L'`;
}
else {
$cur_dir = `pwd -L`;
}
if($? != 0) {
warn "Can't determine current working directory.\n";
return undef;
@ -440,7 +448,13 @@ sub build_sys_abs_path {
# Path is empty string. Return current directory.
# Empty string processed correctly by 'cygpath'.
chomp($path = `pwd -L`);
# MSys shell has built-in command.
if($^O eq 'msys') {
chomp($path = `bash -c 'pwd -L'`);
}
else {
chomp($path = `pwd -L`);
}
if($? != 0) {
warn "Can't determine Unix-style current working directory.\n";
return undef;
@ -510,7 +524,15 @@ sub build_sys_abs_path {
# Path in relative form. Resolve relative directories in Unix form
# *BEFORE* converting to Win32 form otherwise paths like
# '../../../cygdrive/c/windows' will not be resolved.
my $cur_dir = `pwd -L`;
my $cur_dir;
# MSys shell has built-in command.
if($^O eq 'msys') {
$cur_dir = `bash -c 'pwd -L'`;
}
else {
$cur_dir = `pwd -L`;
}
if($? != 0) {
warn "Can't determine current working directory.\n";
return undef;