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