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