summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-01-25 08:36:29 +0000
committerNorbert Preining <preining@logic.at>2008-01-25 08:36:29 +0000
commit25396217c3a85f38eeb158456b6e56950d292c8a (patch)
tree40e879a7fa97d176395559b201022c344f65792e /Master
parent1b9f049c2a78fe2c6dccf6a7c4617a004ec14f15 (diff)
better uninstall-tl.pl
git-svn-id: svn://tug.org/texlive/trunk@6403 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-xMaster/tlpkg/bin/uninstall-tl.pl17
1 files changed, 13 insertions, 4 deletions
diff --git a/Master/tlpkg/bin/uninstall-tl.pl b/Master/tlpkg/bin/uninstall-tl.pl
index f0109f846c4..fbb23296058 100755
--- a/Master/tlpkg/bin/uninstall-tl.pl
+++ b/Master/tlpkg/bin/uninstall-tl.pl
@@ -47,14 +47,23 @@ sub main
broadcast_env;
# now remove all the OTHER dirs (nothing done here atm)
# ...
- # now remove myself ... does this work?
- exec('del',"$Master") or die("cannot remove myself: $Master, $!\n");
+ # remove all the directories ... howto do that on windows ...
} else {
# remove the links (missings, but we do not support them in the installer
# anyway
# ...
- # remove myself ...
- exec('rm','-rf',"$Master") or die("cannot remove myself: $Master, $!\n");
+ # remove all the directories
+ system("rm -rf \"$Master/texmf-dist\"");
+ system("rm -rf \"$Master/texmf-doc\"");
+ system("rm -rf \"$Master/texmf-var\"");
+ system("rm -rf \"$Master/texmf-config\"");
+ system("rm -rf \"$Master/texmf\"");
+ system("rm -rf \"$Master/bin\"");
+ system("rm -rf \"$Master/tlpkg\"");
+ system("rm -f \"$Master/install-tl.log\"");
+ # now everything should be removed ...
+ system("rmdir \"$Master\"") or
+ warn("Couldn't completely remove $Master: $!\n");
}
}