diff options
author | Norbert Preining <norbert@preining.info> | 2022-06-10 23:16:14 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2022-06-10 23:16:14 +0900 |
commit | 8aa4baed62435401add2343fa4a2eb29f094b1fe (patch) | |
tree | fc515a9dcfa17291a9d1932be0f33946dbff2513 /Master/tlpkg | |
parent | 4d08d25308ed137ffaeefd1db2630c4498387bdf (diff) |
Implement w64 check according to Siepdev/win64
Diffstat (limited to 'Master/tlpkg')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index a3d9572995d..f9acb21bb8d 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -556,8 +556,11 @@ currently based on the value of Perl's C<$^O> variable. sub tl_w32 { if ($^O =~ /^MSWin/i) { - # TODO check 32bit - return 1; + if ($ENV{PROCESSOR_ARCHITECTURE} eq "AMD64") { + return 0; + } else { + return 1; + } } else { return 0; } @@ -574,8 +577,11 @@ currently based on the value of Perl's C<$^O> variable. sub tl_w64 { if ($^O =~ /^MSWin/i) { - # TODO check 64bit - return 1; + if ($ENV{PROCESSOR_ARCHITECTURE} eq "AMD64") { + return 1; + } else { + return 0; + } } else { return 0; } |