summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLWinGoo.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/TeXLive/TLWinGoo.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLWinGoo.pm12
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())) {