use right log in TLUtils

git-svn-id: svn://tug.org/texlive/trunk@14150 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 6 insertions, 6 deletions

diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index 2d4cbe0cb90..7fce7812107 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -1836,13 +1836,13 @@ sub w32_add_to_path {
   TeXLive::TLWinGoo::update_assocs();
   my $path = TeXLive::TLWinGoo::get_system_env() -> {'/Path'};
   $path =~ s/[\s\x00]+$//;
-  log("Old system path: $path\n");
+  &log("Old system path: $path\n");
   $path = TeXLive::TLWinGoo::get_user_env() -> {'/Path'};
   if ($path) {
     $path =~ s/[\s\x00]+$//;
-    log("Old user path: $path\n");
+    &log("Old user path: $path\n");
   } else {
-    log("Old user path: none\n");
+    &log("Old user path: none\n");
   }
   my $mode = 'user';
   if (admin() && $multiuser) {
@@ -1851,13 +1851,13 @@ sub w32_add_to_path {
   adjust_reg_path_for_texlive('add', $bindir, $mode);
   $path = TeXLive::TLWinGoo::get_system_env() -> {'/Path'};
   $path =~ s/[\s\x00]+$//;
-  log("New system path: $path\n");
+  &log("New system path: $path\n");
   $path = TeXLive::TLWinGoo::get_user_env() -> {'/Path'};
   if ($path) {
     $path =~ s/[\s\x00]+$//;
-    log("New user path: $path\n");
+    &log("New user path: $path\n");
   } else {
-    log("New user path: none\n");
+    &log("New user path: none\n");
   }
 }