diff options
author | Norbert Preining <preining@logic.at> | 2009-03-11 08:49:37 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-03-11 08:49:37 +0000 |
commit | 92c99da6f86a2107bcbb59abc8323ab519fe527c (patch) | |
tree | 671876c5b57655e397446c926320f183fd855e63 | |
parent | f3ff360cbe324a1f74eb1cf6e7415b9b39f3ba5d (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.pm | 10 |
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; |