diff options
author | Norbert Preining <preining@logic.at> | 2008-05-02 10:29:01 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-05-02 10:29:01 +0000 |
commit | 98bdd450c0f0d139f7304c0f67c1b9163610d2c5 (patch) | |
tree | 7d2e6f0cdcfa5f4edbb9576e79db1a0df8d1aa88 /Master/tlpkg/TeXLive/TLMedia.pm | |
parent | 610cc78b64b7124448d3a7140e5a7fd0911563cb (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.pm | 12 |
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; } |