From 561a12539480d7a4a8096a559d044ca9f4f26e98 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 25 Jan 2008 08:40:42 +0000 Subject: small fixes git-svn-id: svn://tug.org/texlive/trunk@6404 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/bin/uninstall-tl.pl | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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"); } } -- cgit v1.2.3