summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/NEWS1
-rw-r--r--perl-install/do_pkgs.pm47
-rw-r--r--perl-install/install/NEWS1
3 files changed, 44 insertions, 5 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index 64c4092d5..877393b4f 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,4 @@
+- add some POD documentation
- fix detecting some UPS devices (mga#13424)
Version 16.28 - 28 April 2014
diff --git a/perl-install/do_pkgs.pm b/perl-install/do_pkgs.pm
index cfc244711..c5712111f 100644
--- a/perl-install/do_pkgs.pm
+++ b/perl-install/do_pkgs.pm
@@ -1,5 +1,23 @@
package do_pkgs; # $Id: do_pkgs.pm 263860 2009-11-30 15:20:14Z blino $
+=head1 SYNOPSYS
+
+B<do_pkgs> enables to install packages (through urpmi) from our tools.
+It works both during installer and in standalone tools.
+
+
+=head1 Functions
+
+=over
+
+=cut
+
+=item do_pkgs($in)
+
+Returns a new B<do_pkgs> object from a L<interactive> object.
+
+=cut
+
sub do_pkgs {
my ($in) = @_;
($::isInstall ? 'do_pkgs_during_install' : 'do_pkgs_standalone')->new($in);
@@ -68,7 +86,12 @@ sub ensure_binary_is_installed {
1;
}
-# takes a list of [ "package", "file" ] and installs package if file is not there
+=item ensure_files_are_installed($do, $pkgs, $b_auto)
+
+Takes a list of [ "package", "file" ] and installs package if file is not there.
+
+=cut
+
sub ensure_files_are_installed {
my ($do, $pkgs, $b_auto) = @_;
@@ -108,10 +131,20 @@ sub is_installed {
$do->are_installed($name);
}
-#- takes something like "ati-kernel"
-#- returns:
-#- - the various ati-kernel-2.6.XX-XXmdk available for the installed kernels
-#- - dkms-ati if available
+=item check_kernel_module_packages($do, $base_name)
+
+Takes something like "C<ati-kernel>" and returns:
+
+=over 4
+
+=item * the various C<ati-kernel-2.6.XX-XXmdk> available for the installed kernels
+
+=item * C<dkms-ati> if available
+
+=back
+
+=cut
+
sub check_kernel_module_packages {
my ($do, $base_name) = @_;
@@ -296,3 +329,7 @@ sub remove_nodeps {
my ($do, @l) = @_;
remove($do, '--nodeps', @l) == 0;
}
+
+=back
+
+=cut
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 73130b61c..60ee77fe9 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,4 @@
+- add some POD documentation
- do not unavailable kernel-xbox
Version 16.29 - 3 May 2014