From 1edd5f6c562202026ba1c91ac18941acbac9abf3 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Mon, 19 Jan 2026 17:46:47 +0100
Subject: perl_checker cleanups

---
 perl-install/fs/partitioning_wizard.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/fs')

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