summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry.Vignaud <thierry.vignaud@gmail.com>2014-05-28 22:37:24 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2014-05-28 22:37:24 +0200
commit279ee686301222fd40cc71f0129b3949c9f6367e (patch)
tree504802f5dffcfa4ca718bba73dfba27fc7a77da7 /perl-install
parent2800fdc2a724ef9b05b3add20fe6a0d6906cc9b3 (diff)
downloaddrakx-279ee686301222fd40cc71f0129b3949c9f6367e.tar
drakx-279ee686301222fd40cc71f0129b3949c9f6367e.tar.gz
drakx-279ee686301222fd40cc71f0129b3949c9f6367e.tar.bz2
drakx-279ee686301222fd40cc71f0129b3949c9f6367e.tar.xz
drakx-279ee686301222fd40cc71f0129b3949c9f6367e.zip
podify++ fs::dmraid
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/fs/dmraid.pm27
1 files changed, 25 insertions, 2 deletions
diff --git a/perl-install/fs/dmraid.pm b/perl-install/fs/dmraid.pm
index 109126872..ee1674ffc 100644
--- a/perl-install/fs/dmraid.pm
+++ b/perl-install/fs/dmraid.pm
@@ -39,12 +39,24 @@ sub init() {
1;
}
-#- call_dmraid is overloaded when debugging, see the end of this file
+=item call_dmraid($option, @args)
+
+Runs dmraid with $option & @args.
+It is overloaded when debugging, see the end of this file.
+
+=cut
+
sub call_dmraid {
my ($option, @args) = @_;
run_program::get_stdout('dmraid', $option, @args);
}
+=item check($in)
+
+Ensures dmraid is installed. If yes, calls init().
+
+=cut
+
sub check {
my ($in) = @_;
@@ -53,8 +65,13 @@ sub check {
1;
}
+=item _raid_devices_raw()
+
+Get the real VG names, needed for ddf1, and safer than begins_with for raid10
+
+=cut
+
sub _raid_devices_raw() {
- # get the real vg names, needed for ddf1, and safer than begins_with for raid10
log::l("_raid_devices_raw");
my %vgs;
my %pv2vg = map {
@@ -124,6 +141,12 @@ sub _sets() {
@sets;
}
+=item vgs()
+
+Returns the list of VGs corresponding to dmraid
+
+=cut
+
sub vgs() {
map {
my $dev = "mapper/$_->{name}";