diff options
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/installer')
-rwxr-xr-x | systems/texlive/tlnet/tlpkg/installer/config.guess | 9 | ||||
-rwxr-xr-x | systems/texlive/tlnet/tlpkg/installer/install-tl-gui.tcl | 2 |
2 files changed, 10 insertions, 1 deletions
diff --git a/systems/texlive/tlnet/tlpkg/installer/config.guess b/systems/texlive/tlnet/tlpkg/installer/config.guess index 45001cfecd..11fda528bc 100755 --- a/systems/texlive/tlnet/tlpkg/installer/config.guess +++ b/systems/texlive/tlnet/tlpkg/installer/config.guess @@ -2,7 +2,7 @@ # Attempt to guess a canonical system name. # Copyright 1992-2020 Free Software Foundation, Inc. -timestamp='2020-01-01' +timestamp='2020-04-26' # This file is free software; you can redistribute it and/or modify it # under the terms of the GNU General Public License as published by @@ -1629,6 +1629,12 @@ copies of config.guess and config.sub with the latest versions from: https://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.guess and https://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.sub +EOF + +year=`echo $timestamp | sed 's,-.*,,'` +# shellcheck disable=SC2003 +if test "`expr "\`date +%Y\`" - "$year"`" -lt 3 ; then + cat >&2 <<EOF If $0 has already been updated, send the following data and any information you think might be pertinent to config-patches@gnu.org to @@ -1656,6 +1662,7 @@ UNAME_RELEASE = "$UNAME_RELEASE" UNAME_SYSTEM = "$UNAME_SYSTEM" UNAME_VERSION = "$UNAME_VERSION" EOF +fi exit 1 diff --git a/systems/texlive/tlnet/tlpkg/installer/install-tl-gui.tcl b/systems/texlive/tlnet/tlpkg/installer/install-tl-gui.tcl index 0e94d6ab1c..3f5a567c2b 100755 --- a/systems/texlive/tlnet/tlpkg/installer/install-tl-gui.tcl +++ b/systems/texlive/tlnet/tlpkg/installer/install-tl-gui.tcl @@ -1792,6 +1792,7 @@ proc run_menu {} { update wm state . normal raise . + if {$::tcl_platform(platform) eq "windows"} {wm deiconify .} if {[is_nonempty $::vars(TEXDIR)] && ! $::td_warned} { td_warn $::vars(TEXDIR) } @@ -1971,6 +1972,7 @@ proc run_installer {} { # switch to non-blocking i/o chan configure $::inst -buffering line -blocking 0 chan event $::inst readable read_line_cb + if {$::tcl_platform(platform) eq "windows"} {wm deiconify .} }; # run_installer proc whataboutclose {} { |