summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-03-11 08:47:16 +0000
committerNorbert Preining <preining@logic.at>2009-03-11 08:47:16 +0000
commitf3ff360cbe324a1f74eb1cf6e7415b9b39f3ba5d (patch)
treeeee21eb8bebc96951146a265269a32add17f6c05
parentbdb51a42ea462e5bb48c8d2dfb0ff10d1db56cd1 (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-xMaster/install-tl4
-rwxr-xr-xMaster/texmf/scripts/texlive/tlmgr.pl2
-rw-r--r--Master/texmf/scripts/texlive/uninstall-win32.pl2
-rw-r--r--Master/tlpkg/TeXLive/TLMedia.pm2
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm8
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)) {