diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 9 |
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 |