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/tlpkg/TeXLive/TLWinGoo.pm | |
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/tlpkg/TeXLive/TLWinGoo.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLWinGoo.pm | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/Master/tlpkg/TeXLive/TLWinGoo.pm b/Master/tlpkg/TeXLive/TLWinGoo.pm index 3079e7724af..c16e4329a9d 100644 --- a/Master/tlpkg/TeXLive/TLWinGoo.pm +++ b/Master/tlpkg/TeXLive/TLWinGoo.pm @@ -1,6 +1,6 @@ # $Id$ # TeXLive::TLWinGoo.pm - Windows nastiness -# Copyright 2008-2014, 2016 Siep Kroonenberg, Norbert Preining +# Copyright 2008-2016 Siep Kroonenberg, Norbert Preining # This file is licensed under the GNU General Public License version 2 # or any later version. @@ -128,7 +128,7 @@ BEGIN { &is_a_texdir &tex_dirs_on_path ); - if ($^O=~/^MSWin(32|64)$/i) { + if ($^O=~/^MSWin/i) { require Win32; require Win32::API; require Win32API::File; @@ -160,7 +160,7 @@ sub reg_debug { } } -my $is_win = $^O=~/^MSWin(32|64)$/i; +my $is_win = ($^O =~ /^MSWin/i); # Win32: import some wrappers for API functions # failed to get Win32::API::More to work with raw API functions; @@ -483,11 +483,6 @@ to system or user PATH variable in the registry (depending on $mode). # short path names should be unique -#my $shortfu; -#if ($^O=~/^MSWin(32|64)$/i) { -# $shortfu = new Win32::API('kernel32', 'GetShortPathName', 'PPN', 'N'); -#} - sub short_name { my ($fname) = @_; return $fname unless $is_win; |