summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLUtils.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
-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;
}