From 8aa4baed62435401add2343fa4a2eb29f094b1fe Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 10 Jun 2022 23:16:14 +0900 Subject: Implement w64 check according to Siep --- Master/tlpkg/TeXLive/TLUtils.pm | 14 ++++++++++---- 1 file 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; } -- cgit v1.2.3