diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2008-08-03 11:47:14 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2008-08-03 11:47:14 +0000 |
commit | abbf78d8a729ed9bc2c60c4f60abd9a35fa36a71 (patch) | |
tree | 13fc40f01dead4a05a9d0b9548eb9f0d389b2f1b /Master | |
parent | 3a47ca017b35a907f88fe418ebf3d7e261d5926e (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')
-rw-r--r-- | Master/tlpkg/TeXLive/TLWinGoo.pm | 9 |
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; |