summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-03-11 08:49:37 +0000
committerNorbert Preining <preining@logic.at>2009-03-11 08:49:37 +0000
commit92c99da6f86a2107bcbb59abc8323ab519fe527c (patch)
tree671876c5b57655e397446c926320f183fd855e63
parentf3ff360cbe324a1f74eb1cf6e7415b9b39f3ba5d (diff)
try out postaction on actions
git-svn-id: svn://tug.org/texlive/branches/branch2009-dev@12362 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index 2d9e49fa0ac..a1879e0527c 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -1238,10 +1238,10 @@ sub do_postaction {
my ($how, $tlpobj) = @_;
my $ret = 1;
if (!defined($tlpobj)) {
- tlwarn("do_postaction_code: didn't get a tlpobj\n");
+ tlwarn("do_postaction: didn't get a tlpobj\n");
return 0;
}
- debug("running postaction $how code for " . $tlpobj->name . "\n")
+ debug("running postaction $how for " . $tlpobj->name . "\n")
if $tlpobj->postactions;
for my $pa ($tlpobj->postactions) {
if ($pa =~ m/^\s*shortcut\s+(.*)\s*$/) {
@@ -1253,7 +1253,7 @@ sub do_postaction {
} elsif ($pa =~ m/\s*on\s*$/) {
$ret &&= _do_postaction_code($how, $tlpobj);
} else {
- tlwarn("do_postaction_code: don't know how to do $pa\n");
+ tlwarn("do_postaction: don't know how to do $pa\n");
$ret = 0;
}
}
@@ -1333,14 +1333,13 @@ sub _do_postaction_filetype {
}
sub _do_postaction_code {
my ($how, $tlpobj) = @_;
- warn "_do_postaction_code NOT IMPLEMENTED";
- return 1;
my $n = $tlpobj->name;
my $reqline = "require TeXLive::PostAction::$n;";
eval { $reqline };
if ($@) {
tlwarn("Cannot load TeXLive::PostAction::$n\n");
tlwarn("Post Action for $n disabled!\n";
+ tlwarn("Output: $@\n");
return 0;
}
# now we load it again and evaluate the post install/remove code
@@ -1356,6 +1355,7 @@ sub _do_postaction_code {
if ($@) {
# loading has worked, so assume that calling the function did not work
tlwarn("Cannot run the function TeXLive::PostAction::$n::post_$how\n");
+ tlwarn("Output: $@\n");
return 0;
}
return 1;