diff options
author | Norbert Preining <preining@logic.at> | 2008-01-25 08:36:29 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-01-25 08:36:29 +0000 |
commit | 25396217c3a85f38eeb158456b6e56950d292c8a (patch) | |
tree | 40e879a7fa97d176395559b201022c344f65792e /Master | |
parent | 1b9f049c2a78fe2c6dccf6a7c4617a004ec14f15 (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-x | Master/tlpkg/bin/uninstall-tl.pl | 17 |
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"); } } |