diff options
author | Norbert Preining <preining@logic.at> | 2009-06-02 22:51:20 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-06-02 22:51:20 +0000 |
commit | 8070204ef6068bbab49549797fdff4ff66b3c192 (patch) | |
tree | f34f405372dfa30f7d3ce583064e53c3d38c9616 | |
parent | e6aff92d47acf65248496c46a38ca4f9f3512876 (diff) |
log postactions
git-svn-id: svn://tug.org/texlive/trunk@13586 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 8 |
1 files changed, 4 insertions, 4 deletions
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); |