From 325cbdb1eeff9310c305bfb4c29bf7f03556655f Mon Sep 17 00:00:00 2001 From: Martin Whitaker Date: Mon, 24 Oct 2022 21:07:25 +0100 Subject: Factor out code to mount the efivarfs pseudo-filesystem. --- perl-install/bootloader.pm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'perl-install/bootloader.pm') diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 44376db2b..50b676fc0 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -2471,9 +2471,7 @@ sub write_refind { sub write_refind_previous_boot_var { my ($kernel) = @_; - my $efivars = '/sys/firmware/efi/efivars'; - my $already_mounted = cat_('/proc/mounts') =~ /$efivars/; - run_program::run('mount', '-t', 'efivarfs', 'none', $efivars) if !$already_mounted; + my ($efivars, $already_mounted) = mount_efivars(); my $previous_boot = "$efivars/PreviousBoot-36d08fa7-cf0b-42f5-8f14-68df73ed3740"; run_program::run('chattr', '-i', $previous_boot) if -e $previous_boot; if (open(my $efivar, '>:raw', $previous_boot)) { -- cgit v1.2.1