summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLMedia.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-05-02 10:29:01 +0000
committerNorbert Preining <preining@logic.at>2008-05-02 10:29:01 +0000
commit98bdd450c0f0d139f7304c0f67c1b9163610d2c5 (patch)
tree7d2e6f0cdcfa5f4edbb9576e79db1a0df8d1aa88 /Master/tlpkg/TeXLive/TLMedia.pm
parent610cc78b64b7124448d3a7140e5a7fd0911563cb (diff)
support tlmgr default show, tlmgr default docfiles 1 etc
git-svn-id: svn://tug.org/texlive/trunk@7803 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLMedia.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLMedia.pm12
1 files changed, 7 insertions, 5 deletions
diff --git a/Master/tlpkg/TeXLive/TLMedia.pm b/Master/tlpkg/TeXLive/TLMedia.pm
index e9d0666970f..ff98271e0dc 100644
--- a/Master/tlpkg/TeXLive/TLMedia.pm
+++ b/Master/tlpkg/TeXLive/TLMedia.pm
@@ -82,7 +82,7 @@ sub new
# BuildLanguageDat: 0x1000 fmtutil-sys --by-hyphen language.dat
#
sub install_package {
- my ($self, $pkg, $totlpdb, $nodepends, $fallbackmedia) = @_;
+ my ($self, $pkg, $totlpdb, $nodepends, $nopostinstall, $fallbackmedia) = @_;
my $fromtlpdb = $self->tlpdb;
my $ret;
die("TLMedia not initialized, cannot find tlpdb!") unless (defined($fromtlpdb));
@@ -225,10 +225,12 @@ sub install_package {
}
}
}
- # do the postinstallation actions
- if (defined($PostInstall{$pkg})) {
- tllog($::LOG_NORMAL, "running post install action for $pkg\n");
- &{$PostInstall{$pkg}}($totlpdb->root);
+ if (!$nopostinstall) {
+ # do the postinstallation actions
+ if (defined($PostInstall{$pkg})) {
+ tllog($::LOG_NORMAL, "running post install action for $pkg\n");
+ &{$PostInstall{$pkg}}($totlpdb->root);
+ }
}
return $ret;
}