summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/texdoctk/texdoctk.pl
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2022-02-26 17:51:21 +0000
committerKarl Berry <karl@freefriends.org>2022-02-26 17:51:21 +0000
commit312b400275fcb3524f3188d52f48aae532215799 (patch)
treea6ae75bd8a9b16a0f9a95272dc769b88d8000b6f /Master/texmf-dist/scripts/texdoctk/texdoctk.pl
parentfb35a3c228c13fde3608b597bab2783151226099 (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/texdoctk.pl')
-rwxr-xr-xMaster/texmf-dist/scripts/texdoctk/texdoctk.pl17
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