How to shoot my windows ... it needs REG_EXPAND_SZ

git-svn-id: svn://tug.org/texlive/trunk@6134 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 3 insertions, 3 deletions

diff --git a/Master/install-tl.pl b/Master/install-tl.pl
index 92c92341c02..d565af3496a 100755
--- a/Master/install-tl.pl
+++ b/Master/install-tl.pl
@@ -56,8 +56,8 @@ our $trynet=0;
 # for now it is my testing archive on tug.org
 #$::texlive_url = 'http://tug.org/svn/texlive/trunk/Master';
 # for my own testing in the virtual machine
-#$::texlive_url = 'http://10.0.2.2/norbert/tltesting';
-$::texlive_url = 'http://tug.org/~preining/tltesting';
+$::texlive_url = 'http://10.0.2.2/norbert/tltesting';
+#$::texlive_url = 'http://tug.org/~preining/tltesting';
 # the default scheme to be installed
 my $default_scheme='scheme-full';
 # some arrays where the lists of collections to be installed are saved
@@ -705,7 +705,7 @@ sub do_win_registry_magic {
     # add the win32 dir to the PATH
     my $wpath = $winenv->GetValue("Path");
     $wpath .= ";$winpath";
-    $winenv->SetValue("Path","$wpath");
+    $winenv->SetValue("Path","$wpath", "REG_EXPAND_SZ");
   } else {
     warn "Don't know what to do if a non admin user installs texlive on win32\n!";
   }