summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-01-25 08:40:42 +0000
committerNorbert Preining <preining@logic.at>2008-01-25 08:40:42 +0000
commit561a12539480d7a4a8096a559d044ca9f4f26e98 (patch)
tree91414acab47263d00d47b25a5863dd226cafd6d5 /Master
parent25396217c3a85f38eeb158456b6e56950d292c8a (diff)
small fixes
git-svn-id: svn://tug.org/texlive/trunk@6404 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-xMaster/tlpkg/bin/uninstall-tl.pl8
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");
}
}