diff options
| -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; } |