diff options
author | Karl Berry <karl@freefriends.org> | 2022-02-26 17:51:21 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2022-02-26 17:51:21 +0000 |
commit | 312b400275fcb3524f3188d52f48aae532215799 (patch) | |
tree | a6ae75bd8a9b16a0f9a95272dc769b88d8000b6f /Master/texmf-dist/scripts/texdoctk | |
parent | fb35a3c228c13fde3608b597bab2783151226099 (diff) |
2022 pretest start
git-svn-id: svn://tug.org/texlive/trunk@62186 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts/texdoctk')
-rwxr-xr-x | Master/texmf-dist/scripts/texdoctk/texdoctk.pl | 17 |
1 files changed, 3 insertions, 14 deletions
diff --git a/Master/texmf-dist/scripts/texdoctk/texdoctk.pl b/Master/texmf-dist/scripts/texdoctk/texdoctk.pl index 9ef067a0192..45a0cf7e640 100755 --- a/Master/texmf-dist/scripts/texdoctk/texdoctk.pl +++ b/Master/texmf-dist/scripts/texdoctk/texdoctk.pl @@ -33,21 +33,10 @@ if ($IsWin32) { eval { require Tk; }; if ($@) { - if ($IsWin32) { - $ENV{'RUNSCRIPT_ERROR_MESSAGE'} = "This Perl has no Perl/Tk module; aborting..."; - my $vbsc = ""; - $vbsc = `kpsewhich -format texmfscripts tl-errmess.vbs`; - if ($vbsc ne '') { - $vbsc =~ s!/!\\!g; - system("wscript $vbsc"); - exit(0); # 0: prevent another error message from runscript - } + if (-x "/usr/bin/xmessage") { + `xmessage -center -buttons Quit "The program texdoctk needs the package perl-tk, please install it!"`; } else { - if (-x "/usr/bin/xmessage") { - `xmessage -center -buttons Quit "The program texdoctk needs the package perl-tk, please install it!"`; - } else { - printf STDERR "The program texdoctk needs the package perl-tk, please install it!\n"; - } + printf STDERR "The program texdoctk needs the package perl-tk, please install it!\n"; } exit(1); # that didn't work out, so warn the user and continue with text mode |