summaryrefslogtreecommitdiffstats
path: root/perl-install/fs/partitioning_wizard.pm
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2020-02-14 15:29:30 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2020-03-18 11:51:41 +0100
commit8974a1c84810d773e015ec6ad7e92e975c579733 (patch)
tree4ba2ba5723f6f19afb625b27716b0a194660774e /perl-install/fs/partitioning_wizard.pm
parent9e70a6d5e73b6972c89c6c1a7d611f9131dc2892 (diff)
downloaddrakx-8974a1c84810d773e015ec6ad7e92e975c579733.tar
drakx-8974a1c84810d773e015ec6ad7e92e975c579733.tar.gz
drakx-8974a1c84810d773e015ec6ad7e92e975c579733.tar.bz2
drakx-8974a1c84810d773e015ec6ad7e92e975c579733.tar.xz
drakx-8974a1c84810d773e015ec6ad7e92e975c579733.zip
partially podify fs::*
Diffstat (limited to 'perl-install/fs/partitioning_wizard.pm')
-rw-r--r--perl-install/fs/partitioning_wizard.pm28
1 files changed, 23 insertions, 5 deletions
diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm
index 8a15ec559..d48b46084 100644
--- a/perl-install/fs/partitioning_wizard.pm
+++ b/perl-install/fs/partitioning_wizard.pm
@@ -14,12 +14,26 @@ use partition_table::raw;
use partition_table::dos;
use POSIX qw(ceil);
-#- unit of $mb is mega bytes, min and max are in sectors, this
-#- function is used to convert back to sectors count the size of
-#- a partition ($mb) given from the interface (on Resize or Create).
-#- modified to take into account a true bounding with min and max.
+
+=head1 SYNOPSYS
+
+B<fs::partitioning_wizard> implements the partitioning wizard.
+
+=head1 Functions
+
+=over
+
+=item from_Mb($mb, $min, $max)
+
+This function is used to convert back to sectors count the size of
+a partition ($mb) given from the interface (on Resize or Create).
+modified to take into account a true bounding with min and max.
+Unit of $mb is mega bytes, min and max are in sectors.
+
+=cut
+
sub from_Mb {
- my ($mb, $min, $max) = @_;
+ emy ($mb, $min, $max) = @_;
$mb <= to_Mb($min) and return $min;
$mb >= to_Mb($max) and return $max;
MB($mb);
@@ -636,4 +650,8 @@ sub main {
1;
}
+=back
+
+=cut
+
1;