summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLWinGoo.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2016-04-18 21:56:02 +0000
committerKarl Berry <karl@freefriends.org>2016-04-18 21:56:02 +0000
commit182f384a817a982e1f078a496b68cae8edacb777 (patch)
tree719955507e6bdb01136c37ffc2161f623735db26 /Master/tlpkg/TeXLive/TLWinGoo.pm
parent64cac8b0408d6a7e0700efdd53dee0414f6c8bcb (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.pm11
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;