From 3b284f802aed2faf0c9f6f2416af26bdfa6dbc4e Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 18 Apr 2008 12:45:02 +0000 Subject: fix for uninitialized value git-svn-id: svn://tug.org/texlive/trunk@7495 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLWinGoo.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Master/tlpkg') 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*.*\""; -- cgit v1.2.3