summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLWinGoo.pm
diff options
context:
space:
mode:
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;