diff options
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 6 |
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); |