Minor portability update to c_rehash.

a2688c87 · Andy Polyakov · 5b50f99e · a2688c87
显示空白变更内容
内联并排

Showing with 7 addition and 1 deletion

tools/c_rehash.in tools/c_rehash.in +7 -1

未找到文件。
--- a/tools/c_rehash.in
+++ b/tools/c_rehash.in
@@ -15,7 +15,13 @@ if(defined $ENV{OPENSSL}) {
 	$ENV{OPENSSL} = $openssl;
 }

-my $pwd = `pwd`; chomp $pwd;
+my $pwd;
+eval "require Cwd";
+if (defined(&Cwd::getcwd)) {
+	$pwd=Cwd::getcwd();
+} else {
+	$pwd=`pwd`; chomp($pwd);
+}
 my $path_delim = ($pwd =~ /^[a-z]\:/i) ? ';' : ':'; # DOS/Win32 or Unix delimiter?

 $ENV{PATH} .= "$path_delim$dir/bin";