summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-04-28 21:13:13 +0000
committerNorbert Preining <preining@logic.at>2009-04-28 21:13:13 +0000
commitce6268c9f627c88fbbaf421f49877c7da1be02f0 (patch)
treeb5dc804213f5471c4bb341e7c690522b7f0005a0
parenta7794c641d54540d2d2fc789601b16a978182a1b (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.pm15
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;