From: Dan Fandrich Date: Tue, 11 Apr 2023 00:28:09 +0000 (-0700) Subject: pathhelp: use the cached $use_cygpath when available X-Git-Tag: curl-8_1_0~169 X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=8e75c4f978e548855dc90e63a948454de7650b79;p=thirdparty%2Fcurl.git pathhelp: use the cached $use_cygpath when available --- diff --git a/tests/pathhelp.pm b/tests/pathhelp.pm index 5dcd986a21..7d924b8621 100644 --- a/tests/pathhelp.pm +++ b/tests/pathhelp.pm @@ -65,7 +65,6 @@ BEGIN { sys_native_current_path build_sys_abs_path normalize_path - $use_cygpath should_use_cygpath drives_mounted_on_cygdrive ); @@ -97,21 +96,19 @@ BEGIN { } } -our $use_cygpath; # Only for Win32: +my $use_cygpath; # Only for Win32: # undef - autodetect - # 1 - use cygpath # 0 - do not use cygpath + # 1 - use cygpath # Returns boolean true if 'cygpath' utility should be used for path conversion. sub should_use_cygpath { - if(!os_is_win()) { + return $use_cygpath if defined $use_cygpath; + if(os_is_win()) { + $use_cygpath = (qx{cygpath -u '.\\' 2>/dev/null} eq "./\n" && $? == 0); + } else { $use_cygpath = 0; - return 0; } - return $use_cygpath if defined $use_cygpath; - - $use_cygpath = (qx{cygpath -u '.\\' 2>/dev/null} eq "./\n" && $? == 0); - return $use_cygpath; }