summaryrefslogtreecommitdiff
path: root/Build/source/utils/biber/TeXLive/TLUtils.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/utils/biber/TeXLive/TLUtils.pm')
-rw-r--r--Build/source/utils/biber/TeXLive/TLUtils.pm12
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";