summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLUtils.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm8
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);