From a37966cf8915ddfc98403294ff4a6e19d8fe3562 Mon Sep 17 00:00:00 2001
From: Anne Nicolas <ennael@mageia.org>
Date: Wed, 9 Mar 2011 18:15:03 +0000
Subject: fix partition_table_initialize variables

---
 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 46785b64b..2db6f92d0 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -623,7 +623,7 @@ sub partition_table_clear_and_initialize {
 }
 
 sub partition_table_initialize {
-    my ($lvms, $hd, $o_in, $b_warn, $o_type) = @_;
+    my ($lvms, $hd, $o_in, $o_type, $b_warn) = @_;
     partition_table::initialize($hd, $o_type);
     if ($hd->isa('partition_table::lvm')) {
 	if ($b_warn && $o_in) {
-- 
cgit v1.2.1