summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-06-02 22:42:54 +0000
committerNorbert Preining <preining@logic.at>2009-06-02 22:42:54 +0000
commitd4b119136e1b9ee65b47d786fbf2323ec0965db7 (patch)
tree34e05f01f80b8c61782901387fce395eb4826803 /Master
parentf671b599c9ff47f7490c88b87b1aa90bf5adfdaf (diff)
log post actions
git-svn-id: svn://tug.org/texlive/trunk@13584 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm6
1 files changed, 6 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index ff97d02f6a9..92b1bf7d913 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -1341,6 +1341,8 @@ sub _do_postaction_fileassoc {
}
my $filetype = $keyval{'filetype'};
+ log("postaction $how fileassoc for " . $tlpobj->name .
+ ": $extension, $filetype\n");
if ($how eq "install") {
TeXLive::TLWinGoo::register_extension($extension, $filetype);
} elsif ($how eq "remove") {
@@ -1376,6 +1378,8 @@ sub _do_postaction_filetype {
}
my $cmd = $keyval{'cmd'};
+ log("postaction $how filetype for " . $tlpobj->name .
+ ": $name, $cmd\n");
if ($how eq "install") {
TeXLive::TLWinGoo::register_file_type($name, $cmd);
} elsif ($how eq "remove") {
@@ -1419,6 +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");
push @syscmd, $how, $texdir;
my $ret = system (@syscmd);
if ($ret != 0) {
@@ -1471,6 +1476,7 @@ sub _do_postaction_shortcut {
return 0;
}
+ log("postaction $how shortcut for " . $tlpobj->name . "\n");
if ($how eq "install") {
my $texdir = `kpsewhich -var-value=SELFAUTOPARENT`;
chomp($texdir);