diff options
author | Norbert Preining <preining@logic.at> | 2008-01-25 08:40:42 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-01-25 08:40:42 +0000 |
commit | 561a12539480d7a4a8096a559d044ca9f4f26e98 (patch) | |
tree | 91414acab47263d00d47b25a5863dd226cafd6d5 | |
parent | 25396217c3a85f38eeb158456b6e56950d292c8a (diff) |
small fixes
git-svn-id: svn://tug.org/texlive/trunk@6404 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-x | Master/tlpkg/bin/uninstall-tl.pl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/Master/tlpkg/bin/uninstall-tl.pl b/Master/tlpkg/bin/uninstall-tl.pl index fbb23296058..de443cc76ae 100755 --- a/Master/tlpkg/bin/uninstall-tl.pl +++ b/Master/tlpkg/bin/uninstall-tl.pl @@ -29,6 +29,11 @@ use strict; &main (); +sub win32 +{ + return ($^O=~/^MSWin(32|64)$/i ? 1 : 0); +} + sub main { # get the db. @@ -62,7 +67,8 @@ sub main system("rm -rf \"$Master/tlpkg\""); system("rm -f \"$Master/install-tl.log\""); # now everything should be removed ... - system("rmdir \"$Master\"") or + # note that shell returns 0 on success, so we have to use "and" + system("rmdir \"$Master\"") and warn("Couldn't completely remove $Master: $!\n"); } } |