summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/texlive/uninstall-win32.pl
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2020-10-02 13:04:56 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2020-10-02 13:04:56 +0000
commit501c12bb9b700ae0b1dd2c8aa4a1609125f00b86 (patch)
tree804c7cd7dfefa87630192d55bc69fc9e2caeba33 /Master/texmf-dist/scripts/texlive/uninstall-win32.pl
parent42627b56010e42384fe6898a6e0a4b6100074d1a (diff)
TLWinGoo, uninstall-win32: batch-uninstall option
git-svn-id: svn://tug.org/texlive/trunk@56511 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts/texlive/uninstall-win32.pl')
-rwxr-xr-xMaster/texmf-dist/scripts/texlive/uninstall-win32.pl16
1 files changed, 11 insertions, 5 deletions
diff --git a/Master/texmf-dist/scripts/texlive/uninstall-win32.pl b/Master/texmf-dist/scripts/texlive/uninstall-win32.pl
index d82bd38184f..71aa86652a4 100755
--- a/Master/texmf-dist/scripts/texlive/uninstall-win32.pl
+++ b/Master/texmf-dist/scripts/texlive/uninstall-win32.pl
@@ -19,11 +19,17 @@ use TeXLive::TLPOBJ;
use TeXLive::TLConfig;
use TeXLive::TLUtils;
-my $askfile = $0;
-$askfile =~ s!^(.*)([\\/])([^\\/]*)$!$1$2!;
-$askfile .= "uninstq.vbs";
-my $ans = system("wscript", $askfile);
-# 0 means yes
+my $ans;
+
+if (@ARGV) {
+ $ans = 0;
+} else {
+ my $askfile = $0;
+ $askfile =~ s!^(.*)([\\/])([^\\/]*)$!$1$2!;
+ $askfile .= "uninstq.vbs";
+ $ans = system("wscript", $askfile);
+ # 0 means yes
+}
if ($ans) {
exit(1);
} else {