diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2008-02-26 22:41:18 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2008-02-26 22:41:18 +0000 |
commit | 3b8e15525b4f13d58666c9f711401dabb1bbe7f0 (patch) | |
tree | 90002aeb33ff9b92a0bb34c38a6a44d3c7367fdb /Master/tlpkg/doc | |
parent | 994ed09222390f3206082e8f80b4a2c7d1ebd8c2 (diff) |
Uninstaller for win32: simply remove all (pdf)tex directories from the path.
git-svn-id: svn://tug.org/texlive/trunk@6756 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/doc')
-rw-r--r-- | Master/tlpkg/doc/wingoo-demo.pl | 21 |
1 files changed, 12 insertions, 9 deletions
diff --git a/Master/tlpkg/doc/wingoo-demo.pl b/Master/tlpkg/doc/wingoo-demo.pl index 4be176de85a..c4be2193b3a 100644 --- a/Master/tlpkg/doc/wingoo-demo.pl +++ b/Master/tlpkg/doc/wingoo-demo.pl @@ -78,11 +78,13 @@ sub print_search_paths { sub print_lua_out { my $luatest = expand_string( $ENV{'TEMP'} ) . "/testlua"; - create_file( $luatest . ".texlua" ); + my $luatestlua = $luatest . ".texlua"; + unlink $luatestlua if -e $luatestlua; + create_file( $luatestlua ); my $cmd = 'set PATHEXT=%PATHEXT%;.TEXLUA & "'.$luatest.'"'; $cmd =~ s/\//\\/g; print "Lua[tex] result: ".`$cmd`."\n"; - unlink $luatest.".texlua"; + unlink $luatestlua; } sub print_assoc_cmd { @@ -220,7 +222,7 @@ while (1) { # running this first as admin (if possible) and then as non-admin # adding a filetype print( "\nRegistering and unregistering filetypes\n" ); - my $testlua = admin() ? $luaprog : $::installerdir."/bin/win32/texlua.exe"; + my $testlua = admin() ? $::installerdir."/bin/win32/texlua.exe" : $luaprog; update_assocs(); # just to be sure print_assoc_cmd( '.texlua' ); print_lua_out(); @@ -271,9 +273,10 @@ while (1) { # running this first as admin (if possible) and then as non-admin if (!admin()) { last; } } -admin_again(); -unregister_script_type(".texlua"); -update_assocs(); -broadcast_env(); -print_assoc_cmd( '.texlua' ); - +if ($real_admin) { + admin_again(); + unregister_script_type(".texlua"); + update_assocs(); + broadcast_env(); + print_assoc_cmd( '.texlua' ); +} |