summaryrefslogtreecommitdiff
path: root/Master/tlpkg/doc
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2008-02-26 22:41:18 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2008-02-26 22:41:18 +0000
commit3b8e15525b4f13d58666c9f711401dabb1bbe7f0 (patch)
tree90002aeb33ff9b92a0bb34c38a6a44d3c7367fdb /Master/tlpkg/doc
parent994ed09222390f3206082e8f80b4a2c7d1ebd8c2 (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.pl21
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' );
+}