texlive[56511] Master: TLWinGoo, uninstall-win32: batch-uninstall

[commits+siepo at tug.org]

Revision: 56511
          http://tug.org/svn/texlive?view=revision&revision=56511
Author:   siepo
Date:     2020-10-02 15:04:56 +0200 (Fri, 02 Oct 2020)
Log Message:
-----------
TLWinGoo, uninstall-win32: batch-uninstall option

Modified Paths:
--------------
    trunk/Master/texmf-dist/scripts/texlive/uninstall-win32.pl
    trunk/Master/tlpkg/TeXLive/TLWinGoo.pm

Modified: trunk/Master/texmf-dist/scripts/texlive/uninstall-win32.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/texlive/uninstall-win32.pl	2020-10-01 23:47:46 UTC (rev 56510)
+++ trunk/Master/texmf-dist/scripts/texlive/uninstall-win32.pl	2020-10-02 13:04:56 UTC (rev 56511)
@@ -19,11 +19,17 @@
 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 {

Modified: trunk/Master/tlpkg/TeXLive/TLWinGoo.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLWinGoo.pm	2020-10-01 23:47:46 UTC (rev 56510)
+++ trunk/Master/tlpkg/TeXLive/TLWinGoo.pm	2020-10-02 13:04:56 UTC (rev 56511)
@@ -1235,7 +1235,8 @@
 set PERL_SIGNALS=
 set PERL_UNICODE=
 
-perl.exe \"$tdmain\\scripts\\texlive\\uninstall-win32.pl\"
+perl.exe \"$tdmain\\scripts\\texlive\\uninstall-win32.pl\" \%1
+
 if errorlevel 1 goto :eof
 rem test for taskkill and try to stop exit tray menu
 taskkill /? >nul 2>&1