summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLUtils.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm9
1 files changed, 6 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index 97f35efb9ba..b2f94b17c1a 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -224,10 +224,13 @@ subsequent calls just return that value.
sub platform
{
unless (defined $::_platform_) {
- if ($^O=~/^MSWin(32|64)$/i) {
- $::_platform_="win32";
+ if ($^O =~ /^MSWin$/i) {
+ $::_platform_ = "win32";
} else {
- my $config_guess = "$::installerdir/tlpkg/installer/config.guess";
+ # 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";
# We cannot rely on #! in config.guess but have to call /bin/sh
# explicitly because sometimes the 'noexec' flag is set in