summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2008-08-03 11:47:14 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2008-08-03 11:47:14 +0000
commitabbf78d8a729ed9bc2c60c4f60abd9a35fa36a71 (patch)
tree13fc40f01dead4a05a9d0b9548eb9f0d389b2f1b /Master/tlpkg/TeXLive
parent3a47ca017b35a907f88fe418ebf3d7e261d5926e (diff)
TLWinGoo: `uninitialized value' was just a typo: $tl => $td
git-svn-id: svn://tug.org/texlive/trunk@10032 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
-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;