From 136f099fa27fb942010fbcbd7f6b8e633d3ec6c0 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 22 Sep 2004 02:20:57 +0000
Subject: fix an old ugly typo

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

diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index 1072464c7..066de15ec 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -502,7 +502,7 @@ sub auto_allocate_vgs {
 
     my @vgs = grep { $_->{VG_name} } @$suggestions or return 0;
 
-    partition_table::write(@{$all_hds->{hds}});
+    partition_table::write($_) foreach @{$all_hds->{hds}};
 
     require lvm;
 
-- 
cgit v1.2.1