From b588568ff23305379bbc409507f8d5a023f4784b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 15 Feb 2001 19:13:00 +0000
Subject: (suggestions_mntpoint): fix

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

(limited to 'perl-install/fsedit.pm')

diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index a29158e8a..d12d17107 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -194,7 +194,7 @@ sub suggest_part {
 sub suggestions_mntpoint {
     my ($hds) = @_;
     sort grep { !/swap/ && !has_mntpoint($_, $hds) }
-      (@suggestions_mntpoints, map { $_->{mntpoint} } $suggestions{server});
+      (@suggestions_mntpoints, map { $_->{mntpoint} } @{$suggestions{server}});
 }
 
 #-sub partitionDrives {
-- 
cgit v1.2.1