summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--urpm.pm44
1 files changed, 33 insertions, 11 deletions
diff --git a/urpm.pm b/urpm.pm
index 561c1967..634db523 100644
--- a/urpm.pm
+++ b/urpm.pm
@@ -353,7 +353,12 @@ sub db_open_or_die {
$db;
}
-#- register local packages for being installed, keep track of source.
+=item register_rpms($urpm, @files)
+
+Register local packages for being installed, keep track of source.
+
+=cut
+
sub register_rpms {
my ($urpm, @files) = @_;
my ($start, $id, $error, %requested);
@@ -408,10 +413,15 @@ sub register_rpms {
%requested;
}
-#- checks whether the delta RPM represented by $pkg is installable wrt the
-#- RPM DB on $root. For this, it extracts the rpm version to which the
-#- delta applies from the delta rpm filename itself. So naming conventions
-#- do matter :)
+=item is_delta_installable($urpm, $pkg, $root)
+
+checks whether the delta RPM represented by $pkg is installable wrt the
+RPM DB on $root. For this, it extracts the rpm version to which the
+delta applies from the delta rpm filename itself. So naming conventions
+do matter :)
+
+=cut
+
sub is_delta_installable {
my ($urpm, $pkg, $root) = @_;
$pkg->flag_installed or return 0;
@@ -427,10 +437,17 @@ sub is_delta_installable {
$v_match eq $v_installed;
}
-#- extract package that should be installed instead of upgraded,
-#- installing instead of upgrading is useful
-#- - for inst.list (cf flag disable_obsolete)
-#- sources is a hash of id -> source rpm filename.
+
+=item extract_packages_to_install($urpm, $sources)
+
+Extract package that should be installed instead of upgraded,
+installing instead of upgrading is useful
+- for inst.list (cf flag disable_obsolete)
+
+Sources is a hash of id -> source rpm filename.
+
+=cut
+
sub extract_packages_to_install {
my ($urpm, $sources) = @_;
my %inst;
@@ -457,8 +474,13 @@ sub find_candidate_packages_ {
values %packages;
}
-#- get reason of update for packages to be updated
-#- use all update medias if none given
+=item get_updates_description($urpm, @update_medias)
+
+Get reason of update for packages to be updated.
+Use all update medias if none given.
+
+=cut
+
sub get_updates_description {
my ($urpm, @update_medias) = @_;
my %update_descr;