diff options
Diffstat (limited to 'Master/texmf-dist/scripts/texlive/uninstall-win32.pl')
-rwxr-xr-x | Master/texmf-dist/scripts/texlive/uninstall-win32.pl | 16 |
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 { |