diff options
-rwxr-xr-x | Master/install-tl.pl | 2 | ||||
-rw-r--r-- | Master/tlpkg/TeXLive/TLWinGoo.pm | 3 |
2 files changed, 3 insertions, 2 deletions
diff --git a/Master/install-tl.pl b/Master/install-tl.pl index 3b26dac48d5..6184770b6b5 100755 --- a/Master/install-tl.pl +++ b/Master/install-tl.pl @@ -1034,7 +1034,7 @@ sub do_win_registry_magic { register_script_type(".texlua", "%TEXBINDIR%/texlua.exe"); broadcast_env(); update_assocs(); - register_uninstaller() unless $opt_portable; + register_uninstaller("$vars{'TEXDIR'}") unless $opt_portable; } # diff --git a/Master/tlpkg/TeXLive/TLWinGoo.pm b/Master/tlpkg/TeXLive/TLWinGoo.pm index 598e4df0e5c..01b23d3fac8 100644 --- a/Master/tlpkg/TeXLive/TLWinGoo.pm +++ b/Master/tlpkg/TeXLive/TLWinGoo.pm @@ -842,11 +842,12 @@ the uninstaller script. =cut sub register_uninstaller { + my $td = shift; my $uninst_key = $Registry -> Open((admin() ? "LMachine" : "CUser") . "/software/microsoft/windows/currentversion/uninstall/", {Access => KEY_ALL_ACCESS()}); my $k = $uninst_key->CreateKey("TeXLive/"); - my $td = ($vars{'TEXDIR'}) =~ s!/!\\!g; + $td =~ s!/!\\!g; $k->{"/DisplayName"} = "TeXLive ".$::texlive_release; $k->{"/UninstallString"} = "\"$td\\texmf\\scripts\\texlive\\tlmgr\" uninstall & del /q /s \"$td*.*\""; |