diff options
author | Karl Berry <karl@freefriends.org> | 2016-04-18 21:56:02 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2016-04-18 21:56:02 +0000 |
commit | 182f384a817a982e1f078a496b68cae8edacb777 (patch) | |
tree | 719955507e6bdb01136c37ffc2161f623735db26 /Master/texmf-dist/scripts | |
parent | 64cac8b0408d6a7e0700efdd53dee0414f6c8bcb (diff) |
just check for ^MSWin, not 32|64; who knows what the future will bring
git-svn-id: svn://tug.org/texlive/trunk@40600 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts')
-rwxr-xr-x | Master/texmf-dist/scripts/texlive/tlmgr.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl index af0bdd3dd12..6861341ba1a 100755 --- a/Master/texmf-dist/scripts/texlive/tlmgr.pl +++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl @@ -4323,7 +4323,7 @@ sub action_platform { my @extra_w32_packs = qw/tlperl.win32 tlgs.win32 tlpsv.win32 collection-wintools dviout.win32 wintools.win32/; - if ($^O=~/^MSWin(32|64)$/i) { + if ($^O =~ /^MSWin/i) { warn("action `platform' not supported on Windows\n"); return ($F_WARNING); } @@ -4637,7 +4637,7 @@ sub action_gui { $tkmissing = 1; } if ($tkmissing) { - if ($^O=~/^MSWin(32|64)$/i) { + if ($^O =~ /^MSWin/i) { # that should not happen, we are shipping Tk!! require Win32; my $msg = "Cannot load Tk, that should not happen as we ship it!\nHow did you start tlmgrgui??\n(Error message: $@)\n"; |