texlive[72335] Master/tlpkg/TeXLive/TLWinGoo.pm: More debugging for

[commits+preining at tug.org]

Revision: 72335
          https://tug.org/svn/texlive?view=revision&revision=72335
Author:   preining
Date:     2024-09-21 11:54:18 +0200 (Sat, 21 Sep 2024)
Log Message:
-----------
More debugging for PATH adjustment on Windows

Modified Paths:
--------------
    trunk/Master/tlpkg/TeXLive/TLWinGoo.pm

Modified: trunk/Master/tlpkg/TeXLive/TLWinGoo.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLWinGoo.pm	2024-09-21 09:54:10 UTC (rev 72334)
+++ trunk/Master/tlpkg/TeXLive/TLWinGoo.pm	2024-09-21 09:54:18 UTC (rev 72335)
@@ -463,6 +463,7 @@
   debug("Warning: [pdf]tex program not found in $tlbindir\n")
     if (!is_a_texdir($tlbindir));
   my $path = ($mode eq 'system') ? get_system_path() : get_user_path();
+  debug("TLWinGoo: adjust_reg_path_for_texlive: current path before adjusting = $path\n");
   $tlbindir =~ s!/!\\!g;
   my $tlbindir_short = uc(short_name($tlbindir));
   my ($d, $d_short, @newpath);
@@ -490,7 +491,7 @@
     }
   }
   if (@newpath) {
-    debug("TLWinGoo: adjust_reg_path_for_texlive: calling setenv_reg in $mode\n");
+    debug("TLWinGoo: adjust_reg_path_for_texlive: calling setenv_reg in $mode with new path = ", join(';', @newpath), "\n");
     setenv_reg("Path", join(';', @newpath), $mode);
   } else {
     debug("TLWinGoo: adjust_reg_path_for_texlive: calling unsetenv_reg in $mode\n");