From ce6268c9f627c88fbbaf421f49877c7da1be02f0 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Tue, 28 Apr 2009 21:13:13 +0000 Subject: 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 --- Master/tlpkg/TeXLive/TLMedia.pm | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) 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; -- cgit v1.2.3