diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLWinGoo.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLWinGoo.pm | 12 |
1 files changed, 10 insertions, 2 deletions
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())) { |