diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2008-01-13 20:50:11 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2008-01-13 20:50:11 +0000 |
commit | 08ffcc25acc42d01f5d3aecece204520a2076ffe (patch) | |
tree | 741c14bd96d9c01b5db7e3cfeb9836c8b9465667 /Master | |
parent | 2120a13913e26e2817c6d3d22629351100e95cfd (diff) |
Removed commented-out registry code from install-tl.pl. Also
commented out `our Registry' since now only TLWinGoo needs to access
the registry directly.
git-svn-id: svn://tug.org/texlive/trunk@6216 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-x | Master/install-tl.pl | 44 |
1 files changed, 1 insertions, 43 deletions
diff --git a/Master/install-tl.pl b/Master/install-tl.pl index 764e76bbfb2..47e35dd7a41 100755 --- a/Master/install-tl.pl +++ b/Master/install-tl.pl @@ -79,7 +79,7 @@ our @collections_lang_doc; # smaller than the number of binaries available from the network. our $max_bins_on_CD=7; # for win dealing -our $Registry; +#our $Registry; # The global variable %vars is an associative list which contains all # variables and their values which can be changed by the user. # needs to be our since TeXLive::TLUtils uses it @@ -836,48 +836,6 @@ sub do_texmf_cnf { } # register texlua handlers etc etc -#sub do_win_registry_magic { -# # we are called under if (win32()) !! -# my $winpath = "$vars{'TEXDIR'}/bin/win32"; -# $winpath =~ s!/!\\!g; -# my $classespath; -# if ($vars{'win-admin'}) { -# # these things can only be done by admins -# # PATHEXT editing -# # should this be currentcontrolset or ControlSet001 ???? -# my $winenv = $Registry->Open( "LMachine/SYSTEM/CurrentControlSet/Control/Session Manager/Environment/", {Access=>'KEY_ALL_ACCESS',Delimiter=>"/"}); -# my $pathext = $winenv->GetValue("PATHEXT"); -# my $found = 0; -# foreach (split(/;/,$pathext)) { -# $found = 1 if (m/\.texlua/i); -# } -# if (!$found) { -# $winenv->SetValue("PATHEXT","$pathext;.texlua"); -# } -# -# # add the win32 dir to the PATH -# my $wpath = $winenv->GetValue("Path"); -# $wpath .= ";$winpath"; -# $winenv->SetValue("Path","$wpath", "REG_EXPAND_SZ"); -# -# # for the .texlua binding we can do it for admin and normal users -# # but with different registry pathes -# $classespath = "LMachine/Software/Classes/"; -# } else { -# tllog($::LOG_NORMAL, "non-admin users: no Path and PATHEXT setting possible.\n"); -# # for non-admin users the classes path is different -# # (Siep, email 2008-01-09) -# $classespath = "Users/Software/Classes/"; -# } -# # generate a .texlua association and link it to texlua.exe, which should -# # be in the path! -# my $classes = $Registry->Open( $classespath, {Access=>'KEY_ALL_ACCESS',Delimiter=>"/"}); -# $classes->CreateKey(".texlua")->SetValue("","script.texlua"); -# my $scriptkey = $classes->CreateKey("script.texlua"); -# $scriptkey->SetValue("", "TeXLua Script"); -# $scriptkey->CreateKey("Shell/Open/Command/")->SetValue("","$winpath\\texlua.exe %1 %*"); -#} - sub do_win_registry_magic { # we are called under if (win32()) !! my $winpath = "$vars{'TEXDIR'}/bin/win32"; |