summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Master/tlpkg/TeXLive/TLWinGoo.pm9
1 files changed, 5 insertions, 4 deletions
diff --git a/Master/tlpkg/TeXLive/TLWinGoo.pm b/Master/tlpkg/TeXLive/TLWinGoo.pm
index ed5c0bf35c4..43a6e5b3374 100644
--- a/Master/tlpkg/TeXLive/TLWinGoo.pm
+++ b/Master/tlpkg/TeXLive/TLWinGoo.pm
@@ -957,6 +957,7 @@ the job.
sub create_uninstaller {
my ($tdfw, $tdwfw, $tdsvfw, $tdscfw) = @_;
+ print "create_uninstaller args:\n".(join "\n", @_)."\n";
# TEXDIR, TEXDIRW, TEXMFSYSVAR, TEXMFSYSCONFIG
$tdfw =~ s![\\/]$!!;
my $td = $tdfw;
@@ -1003,16 +1004,16 @@ UNEND
}
if (open UNINST2, ">$tdwfw/tlpkg/installer/uninst2.bat") {
- print UNINST2 <<UNEND2 if $td eq $tdw;
+ print UNINST2 <<UNEND2 if ($td eq $tdw);
rmdir /s /q \"$td\\texmf-dist\"
rmdir /s /q \"$td\\texmf-doc\"
rmdir /s /q \"$td\\texmf\"
rmdir /s /q \"$td\\readme.html\"
rmdir /s /q \"$td\\bin\"
rmdir /s /q \"$td\\tlpkg\"
-del /s /q \"$tl\\README.*\"
-del /s /q \"$tl\\LICENSE.*\"
-del /q \"$tl\\index.html\"
+del /s /q \"$td\\README.*\"
+del /s /q \"$td\\LICENSE.*\"
+del /q \"$td\\index.html\"
UNEND2
;
print UNINST2 <<UNEND2;