diff options
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 1 | ||||
-rw-r--r-- | Master/tlpkg/TeXLive/TLWinGoo.pm | 12 |
2 files changed, 11 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 3aef571a81a..6d53bc9b88b 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -1848,6 +1848,7 @@ sub w32_add_to_path { if (TeXLive::TLWinGoo::admin() && $multiuser) { $mode = 'system'; } + debug("TLUtils:w32_add_to_path: calling adjust_reg_path_for_texlive add $bindir $mode\n"); TeXLive::TLWinGoo::adjust_reg_path_for_texlive('add', $bindir, $mode); $path = TeXLive::TLWinGoo::get_system_env() -> {'/Path'}; $path =~ s/[\s\x00]+$//; diff --git a/Master/tlpkg/TeXLive/TLWinGoo.pm b/Master/tlpkg/TeXLive/TLWinGoo.pm index 5e4ca111279..1e71579ecec 100644 --- a/Master/tlpkg/TeXLive/TLWinGoo.pm +++ b/Master/tlpkg/TeXLive/TLWinGoo.pm @@ -218,10 +218,16 @@ Currently only used for testing. =cut -sub non_admin { $is_admin = 0; } +sub non_admin { + debug("TLWinGoo: switching to user mode\n"); + $is_admin = 0; +} # just for testing; doesn't check actual user permissions -sub admin_again { $is_admin = 1; } +sub admin_again { + debug("TLWinGoo: switching to admin mode\n"); + $is_admin = 1; +} =pod @@ -507,8 +513,10 @@ sub adjust_reg_path_for_texlive { } } if (@newpath) { + debug("TLWinGoo: adjust_reg_path_for_texlive: calling setenv_reg in $mode\n"); setenv_reg("Path", join(';', @newpath), $mode); } else { + debug("TLWinGoo: adjust_reg_path_for_texlive: calling unsetenv_reg in $mode\n"); unsetenv_reg("Path", $mode); } if (($action eq 'add') and ($mode eq 'user') and tex_dirs_on_path(get_system_path())) { |