From 1f6583cbd0d0b77512bc9c774bf0ad315678d4a7 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Wed, 8 Jul 2009 08:55:29 +0000 Subject: more debug statements for admin magic git-svn-id: svn://tug.org/texlive/trunk@14183 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLUtils.pm | 1 + Master/tlpkg/TeXLive/TLWinGoo.pm | 12 ++++++++++-- 2 files changed, 11 insertions(+), 2 deletions(-) (limited to 'Master/tlpkg') 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())) { -- cgit v1.2.3