summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLWinGoo.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-07-08 08:55:29 +0000
committerNorbert Preining <preining@logic.at>2009-07-08 08:55:29 +0000
commit1f6583cbd0d0b77512bc9c774bf0ad315678d4a7 (patch)
treef4e323e29612a75338d233e4ee9aefb6ba328a76 /Master/tlpkg/TeXLive/TLWinGoo.pm
parentbd4182fb4aad4c267f771ce65cbb5c5d9aa8c11f (diff)
more debug statements for admin magic
git-svn-id: svn://tug.org/texlive/trunk@14183 c570f23f-e606-0410-a88d-b1316a301751
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())) {