diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2026-01-19 17:46:47 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2026-01-19 17:52:11 +0100 |
| commit | 1edd5f6c562202026ba1c91ac18941acbac9abf3 (patch) | |
| tree | 06860f66277f1fb658f4ab974609ba39cd0ecc4f /perl-install/fs | |
| parent | 17b8ec62c1ec6006e52b0303273e392941dad834 (diff) | |
| download | drakx-1edd5f6c562202026ba1c91ac18941acbac9abf3.tar drakx-1edd5f6c562202026ba1c91ac18941acbac9abf3.tar.gz drakx-1edd5f6c562202026ba1c91ac18941acbac9abf3.tar.bz2 drakx-1edd5f6c562202026ba1c91ac18941acbac9abf3.tar.xz drakx-1edd5f6c562202026ba1c91ac18941acbac9abf3.zip | |
perl_checker cleanups
Diffstat (limited to 'perl-install/fs')
| -rw-r--r-- | perl-install/fs/partitioning_wizard.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm index 6e77f3eff..22fb77eeb 100644 --- a/perl-install/fs/partitioning_wizard.pm +++ b/perl-install/fs/partitioning_wizard.pm @@ -33,7 +33,7 @@ Unit of $mb is mega bytes, min and max are in sectors. =cut sub from_Mb { - emy ($mb, $min, $max) = @_; + my ($mb, $min, $max) = @_; $mb <= to_Mb($min) and return $min; $mb >= to_Mb($max) and return $max; MB($mb); |