From df5dce945bb3bf66f9f459c279701580d2f83f85 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Sun, 16 Jan 2022 23:20:41 +0100
Subject: perl_checker: fix undefined @fstab variable

bug introduced in commit c7082b46f4345ffb061b317785055cdb945289e3
---
 perl-install/install/steps.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/install/steps.pm b/perl-install/install/steps.pm
index f19b8acc2..0319a6575 100644
--- a/perl-install/install/steps.pm
+++ b/perl-install/install/steps.pm
@@ -203,7 +203,7 @@ sub doPartitionDisksAfter {
 	#- We skipped the setupSCSI step, so $o->{fstab} will be empty. We need to
 	#- add a fake entry, to satisfy the following check for a root partition.
 	my $fstab = [ fs::read_fstab('', '/proc/mounts') ];
-	my $part = fs::get::mntpoint2part($::prefix, $fstab) || $fstab[0];
+	my $part = fs::get::mntpoint2part($::prefix, $fstab) || $fstab->[0];
 	$part->{mntpoint} = '/';
 	$part->{isMounted} = 1;
 	$o->{fstab} = [ $part ];
-- 
cgit v1.2.1