summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/uninstall-try.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/installer/uninstall-try.pl')
-rwxr-xr-xMaster/tlpkg/installer/uninstall-try.pl87
1 files changed, 0 insertions, 87 deletions
diff --git a/Master/tlpkg/installer/uninstall-try.pl b/Master/tlpkg/installer/uninstall-try.pl
deleted file mode 100755
index 44d95fdab16..00000000000
--- a/Master/tlpkg/installer/uninstall-try.pl
+++ /dev/null
@@ -1,87 +0,0 @@
-#!/usr/bin/env perl
-
-# $Id: uninstall-tl.pl 6381 2008-01-23 17:50:54Z preining $
-# uninstall-tl.pl
-#
-# Copyright 2008 Norbert Preining, Siep Kroonenberg
-# This file is licensed under the GNU General Public License version 2
-# or any later version.
-#
-
-
-my $me;
-
-BEGIN {
- $^W = 1;
- $me=$0;
- $me=~s!\\!/!g if $^O=~/^MSWin(32|64)$/i;
- if ($me =~ m!/!) {
- $me=~s!(.*)/[^/]+/[^/]*$!$1!; # parent
- } else {
- $me='./..';
- }
- unshift (@INC, $me);
-}
-
-use TeXLive::TLWinGoo;
-use Cwd qw/abs_path/;
-use strict;
-
-&main ();
-
-sub win32
-{
- return ($^O=~/^MSWin(32|64)$/i ? 1 : 0);
-}
-
-sub main
-{
- # get the db.
- my $Master = abs_path("$me/.."); # another step up
-
- # we have to
- # - remove the entry of bin/arch from the PATH environment
- # - (win32) remove the .texlua association
- # - (win32) remove the entry of PATHEXT
- # - (unix) ... the links
- if (win32()) {
- # remove any tex path and add an empty entry ... hope that does the
- # right thing
- #add_texbindir_to_path("");
- remove_texbindirs_from_path();
- unregister_script_type(".texlua");
- broadcast_env();
- update_assocs();
- # now remove all the OTHER dirs (nothing done here atm)
- # ...
- # 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 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 ...
- # note that shell returns 0 on success, so we have to use "and"
- system("rmdir \"$Master\"") and
- warn("Couldn't completely remove $Master: $!\n");
- }
-}
-
-
-__END__
-
-
-### Local Variables:
-### perl-indent-level: 2
-### tab-width: 2
-### indent-tabs-mode: nil
-### End:
-# vim:set tabstop=2 expandtab: #