summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2008-01-13 20:50:11 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2008-01-13 20:50:11 +0000
commit08ffcc25acc42d01f5d3aecece204520a2076ffe (patch)
tree741c14bd96d9c01b5db7e3cfeb9836c8b9465667
parent2120a13913e26e2817c6d3d22629351100e95cfd (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
-rwxr-xr-xMaster/install-tl.pl44
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";