summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2022-06-10 23:16:14 +0900
committerNorbert Preining <norbert@preining.info>2022-06-10 23:16:14 +0900
commit8aa4baed62435401add2343fa4a2eb29f094b1fe (patch)
treefc515a9dcfa17291a9d1932be0f33946dbff2513
parent4d08d25308ed137ffaeefd1db2630c4498387bdf (diff)
Implement w64 check according to Siepdev/win64
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm14
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;
}