diff options
author | Norbert Preining <preining@logic.at> | 2009-03-11 08:47:16 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-03-11 08:47:16 +0000 |
commit | f3ff360cbe324a1f74eb1cf6e7415b9b39f3ba5d (patch) | |
tree | eee21eb8bebc96951146a265269a32add17f6c05 | |
parent | bdb51a42ea462e5bb48c8d2dfb0ff10d1db56cd1 (diff) |
rename do_postaction_code to do_postaction
git-svn-id: svn://tug.org/texlive/branches/branch2009-dev@12361 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-x | Master/install-tl | 4 | ||||
-rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr.pl | 2 | ||||
-rw-r--r-- | Master/texmf/scripts/texlive/uninstall-win32.pl | 2 | ||||
-rw-r--r-- | Master/tlpkg/TeXLive/TLMedia.pm | 2 | ||||
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 8 |
5 files changed, 9 insertions, 9 deletions
diff --git a/Master/install-tl b/Master/install-tl index 72e0454046a..8dd1a0b3eb6 100755 --- a/Master/install-tl +++ b/Master/install-tl @@ -712,8 +712,8 @@ sub do_system_integration { my $usedtlpdb = $vars{'from_dvd'} ? $tlpdb : $localtlpdb; foreach my $package (sort keys %install) { if ($install{$package}) { - &TeXLive::TLUtils::do_postaction_code("install", - $usedtlpdb->get_package($package)); + &TeXLive::TLUtils::do_postaction("install", + $usedtlpdb->get_package($package)); } } info ("finished with package specific postactions\n"); diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl index d92f015920a..7e2a69d1727 100755 --- a/Master/texmf/scripts/texlive/tlmgr.pl +++ b/Master/texmf/scripts/texlive/tlmgr.pl @@ -559,7 +559,7 @@ sub remove_package { } # # Run the post installation code in the postaction tlpsrc entries - &TeXLive::TLUtils::do_postaction_code("remove", $tlp); + &TeXLive::TLUtils::do_postaction("remove", $tlp); } return \%ret; } diff --git a/Master/texmf/scripts/texlive/uninstall-win32.pl b/Master/texmf/scripts/texlive/uninstall-win32.pl index 2d6920ff510..0d18867d435 100644 --- a/Master/texmf/scripts/texlive/uninstall-win32.pl +++ b/Master/texmf/scripts/texlive/uninstall-win32.pl @@ -56,7 +56,7 @@ sub doit { &{$PostRemove{$pkg}}($Master); } } - &TeXLive::TLUtils::do_postaction_code("remove", $pkg); + &TeXLive::TLUtils::do_postaction("remove", $pkg); } my $menupath = &TeXLive::TLWinGoo::menu_path(); $menupath =~ s!/!\\!g; diff --git a/Master/tlpkg/TeXLive/TLMedia.pm b/Master/tlpkg/TeXLive/TLMedia.pm index 028097df7b5..13d129879d1 100644 --- a/Master/tlpkg/TeXLive/TLMedia.pm +++ b/Master/tlpkg/TeXLive/TLMedia.pm @@ -210,7 +210,7 @@ sub install_package { } # # Run the post installation code in the postaction tlpsrc entries - &TeXLive::TLUtils::do_postaction_code("install", $tlpobj); + &TeXLive::TLUtils::do_postaction("install", $tlpobj); } return \%ret; } diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index ce64095390d..2d9e49fa0ac 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -56,7 +56,7 @@ C<TeXLive::TLUtils> -- utilities used in the TeX Live infrastructure TeXLive::TLUtils::create_language_def($tlpdb,$dest,$localconf); TeXLive::TLUtils::install_packages($from_tlpdb,$media,$to_tlpdb,$what,$opt_src, $opt_doc)>); TeXLive::TLUtils::install_package($what, $filelistref, $target, $platform); - TeXLive::TLUtils::do_postaction_code($how, $tlpobj); + TeXLive::TLUtils::do_postaction($how, $tlpobj); =head2 Miscellaneous @@ -1225,16 +1225,16 @@ sub install_package { return 1; } -=item C<do_postaction_code($how, $tlpobj)> +=item C<do_postaction($how, $tlpobj)> -Evaluates the C<postaction> code in the C<$tlpobj> +Evaluates the C<postaction> fields in the C<$tlpobj> MISSING DOCUMENTATION TODO TODO Returns 1 on success, and 0 on failure. =cut -sub do_postaction_code { +sub do_postaction { my ($how, $tlpobj) = @_; my $ret = 1; if (!defined($tlpobj)) { |