From 8974a1c84810d773e015ec6ad7e92e975c579733 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 14 Feb 2020 15:29:30 +0100
Subject: partially podify fs::*

---
 perl-install/fs/partitioning_wizard.pm | 28 +++++++++++++++++++++++-----
 1 file changed, 23 insertions(+), 5 deletions(-)

(limited to 'perl-install/fs/partitioning_wizard.pm')

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;
-- 
cgit v1.2.1