summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/texlive/uninstall-win32.pl
diff options
context:
space:
mode:
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 {