4 files changed, 7 insertions, 2 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index 382d3c8c7..bf6b6b697 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,6 @@
+- diskdrake:
+  o fix partitioning wizard
+
 Version 18.72 - 18 January 2026
 
 - fix timezone::ntp_servers() to return the correct list when called
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);
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 26f8cd78b..8a127ab68 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,5 @@
+- fix partitioning wizard
+
 Version 18.72 - 18 January 2026
 
 - add mesa EGL and GL libraries needed by WebKit2 (mga#34988)
diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm
index 5d7c21f27..d253cc1c6 100644
--- a/perl-install/install/install2.pm
+++ b/perl-install/install/install2.pm
@@ -199,7 +199,7 @@ sub selectTimezone {
         #- Read the existing settings. But we will still ask the user, in case
         #- they are wrong.
         my $root_part = fs::get::mntpoint2part('/', $o->{fstab});
-        if ($root_part && eval{ fs::mount::mount(fs::wild_device::from_part('', $root_part), $::prefix, $root_part->{fs_type}, 'ro') }) {
+        if ($root_part && eval { fs::mount::mount(fs::wild_device::from_part('', $root_part), $::prefix, $root_part->{fs_type}, 'ro') }) {
             if (my $tz = timezone::read()) {
                 add2hash($o->{timezone}, $tz);
                 $o->{timezone}{ntp} = timezone::ntp_pool();