Use perl-Bootloader on LeapMicro 6.1

lkocman · Nov 26, 2024 · 365cf0b · 365cf0b
1 parent d825fc0
commit 365cf0b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tests/console/perl_bootloader.pm b/tests/console/perl_bootloader.pm
@@ -15,15 +15,15 @@ use warnings;
 use utils;
 use package_utils;
 use power_action_utils 'power_action';
-use version_utils qw(is_sle is_leap is_sle_micro check_version is_transactional);
+use version_utils qw(is_sle is_leap is_sle_micro is_leap_micro check_version is_transactional);
 use Utils::Backends 'is_pvm';
 use transactional;
 
 sub run {
     my ($self) = @_;
     # https://progress.opensuse.org/issues/165686
     # package name is now 'update-bootloader', it will remain 'perl-Bootloader' for older products
-    my $package = (!is_sle("<=15-SP7") && !is_leap("<=15.6") && !is_sle_micro("<=6.1")) ? 'update-bootloader' : 'perl-Bootloader';
+    my $package = (!is_sle("<=15-SP7") && !is_leap("<=15.6") && !is_sle_micro("<=6.1") && !is_leap_micro("<=6.1") ? 'update-bootloader' : 'perl-Bootloader';
     select_serial_terminal;
 
     if (script_run "rpm -q $package") {