diff options
author | Norbert Preining <preining@logic.at> | 2009-04-28 21:13:13 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-04-28 21:13:13 +0000 |
commit | ce6268c9f627c88fbbaf421f49877c7da1be02f0 (patch) | |
tree | b5dc804213f5471c4bb341e7c690522b7f0005a0 | |
parent | a7794c641d54540d2d2fc789601b16a978182a1b (diff) |
we cannot call the postaction code *after* the removal of files since
the scripts are gone, so call them before removing the files.
git-svn-id: svn://tug.org/texlive/branches/branch2009-dev@12844 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r-- | Master/tlpkg/TeXLive/TLMedia.pm | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLMedia.pm b/Master/tlpkg/TeXLive/TLMedia.pm index 8d79d62524f..14dfb0ff17b 100644 --- a/Master/tlpkg/TeXLive/TLMedia.pm +++ b/Master/tlpkg/TeXLive/TLMedia.pm @@ -380,6 +380,17 @@ sub remove_package { tlwarn(" $f - $allfiles{$f}\n"); } } + # + # Run only the postaction code thing now since afterwards the + # files will be gone ... + if (!$nopostinstall) { + &TeXLive::TLUtils::do_postaction("remove", $tlp, + 0, # option_file_assocs, + 0, # option_desktop_integration, + $localtlpdb->option_post_code); + } + # + # now do the removal foreach my $entry (@goodfiles) { unlink $entry; } @@ -403,11 +414,13 @@ sub remove_package { } # # Run the post installation code in the postaction tlpsrc entries + # the postaction code part cannot be evaluated now since the + # files are already removed. if (!$nopostinstall) { &TeXLive::TLUtils::do_postaction("remove", $tlp, $localtlpdb->option_file_assocs, $localtlpdb->option_desktop_integration, - $localtlpdb->option_post_code); + 0); } } return \%ret; |