diff options
Diffstat (limited to 'Build/source/utils/biber/TeXLive/TLUtils.pm')
-rw-r--r-- | Build/source/utils/biber/TeXLive/TLUtils.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/Build/source/utils/biber/TeXLive/TLUtils.pm b/Build/source/utils/biber/TeXLive/TLUtils.pm index 0c687b1a707..e88f0c51529 100644 --- a/Build/source/utils/biber/TeXLive/TLUtils.pm +++ b/Build/source/utils/biber/TeXLive/TLUtils.pm @@ -1,4 +1,4 @@ -# $Id: TLUtils.pm 21304 2011-02-05 00:26:35Z reinhardk $ +# $Id: TLUtils.pm 21714 2011-03-14 21:27:26Z karl $ # TeXLive::TLUtils.pm - the inevitable utilities for TeX Live. # Copyright 2007, 2008, 2009, 2010 Norbert Preining, Reinhard Kotucha # This file is licensed under the GNU General Public License version 2 @@ -6,7 +6,7 @@ package TeXLive::TLUtils; -my $svnrev = '$Revision: 21304 $'; +my $svnrev = '$Revision: 21714 $'; my $_modulerevision; if ($svnrev =~ m/: ([0-9]+) /) { $_modulerevision = $1; @@ -221,12 +221,12 @@ subsequent calls just return that value. =cut -sub platform -{ +sub platform { unless (defined $::_platform_) { - if ($^O=~/^MSWin(32|64)$/i) { - $::_platform_="win32"; + if ($^O =~ /^MSWin/i) { + $::_platform_ = "win32"; } else { + # the copy of this file in biber uses a different config.guess dir. my $config_guess_dir = $TeXLive::TLConfig::Config_Guess_Dir || "$::installerdir/tlpkg/installer"; my $config_guess = "$config_guess_dir/config.guess"; |