From 8070204ef6068bbab49549797fdff4ff66b3c192 Mon Sep 17 00:00:00 2001
From: Norbert Preining <preining@logic.at>
Date: Tue, 2 Jun 2009 22:51:20 +0000
Subject: log postactions

git-svn-id: svn://tug.org/texlive/trunk@13586 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/tlpkg/TeXLive/TLUtils.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'Master')

diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index 92b1bf7d913..a84e2e7279e 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -1341,7 +1341,7 @@ sub _do_postaction_fileassoc {
   }
   my $filetype = $keyval{'filetype'};
     
-  log("postaction $how fileassoc for " . $tlpobj->name . 
+  &log("postaction $how fileassoc for " . $tlpobj->name . 
     ": $extension, $filetype\n");
   if ($how eq "install") {
     TeXLive::TLWinGoo::register_extension($extension, $filetype);
@@ -1378,7 +1378,7 @@ sub _do_postaction_filetype {
   }
   my $cmd = $keyval{'cmd'};
     
-  log("postaction $how filetype for " . $tlpobj->name . 
+  &log("postaction $how filetype for " . $tlpobj->name . 
     ": $name, $cmd\n");
   if ($how eq "install") {
     TeXLive::TLWinGoo::register_file_type($name, $cmd);
@@ -1423,7 +1423,7 @@ sub _do_postaction_script {
     # we got anything else, call it directly and hope it is excutable
     push @syscmd, "$texdir/$file";
   }
-  log("postaction $how script for " . $tlpobj->name . ": $syscmd\n");
+  &log("postaction $how script for " . $tlpobj->name . ": $syscmd\n");
   push @syscmd, $how, $texdir;
   my $ret = system (@syscmd);
   if ($ret != 0) {
@@ -1476,7 +1476,7 @@ sub _do_postaction_shortcut {
     return 0;
   }
     
-  log("postaction $how shortcut for " . $tlpobj->name . "\n");
+  &log("postaction $how shortcut for " . $tlpobj->name . "\n");
   if ($how eq "install") {
     my $texdir = `kpsewhich -var-value=SELFAUTOPARENT`;
     chomp($texdir);
-- 
cgit v1.2.3