From 182f384a817a982e1f078a496b68cae8edacb777 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 18 Apr 2016 21:56:02 +0000 Subject: 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 --- Master/tlpkg/TeXLive/TLWinGoo.pm | 11 +++-------- 1 file changed, 3 insertions(+), 8 deletions(-) (limited to 'Master/tlpkg/TeXLive/TLWinGoo.pm') 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; -- cgit v1.2.3