From 3936c319c862249d2474ee311481d08d73e5cdce Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 20 Sep 2001 22:37:19 +0000
Subject: (partition_with_diskdrake): ensure the $::expert flag modifications
 in diskdrake do not escape from diskdrake

---
 perl-install/install_interactive.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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

diff --git a/perl-install/install_interactive.pm b/perl-install/install_interactive.pm
index f24046baa..997177cce 100644
--- a/perl-install/install_interactive.pm
+++ b/perl-install/install_interactive.pm
@@ -32,7 +32,10 @@ sub partition_with_diskdrake {
     do {
 	$ok = 1;
 	require diskdrake_interactive;
-	diskdrake_interactive::main($o, $all_hds, $nowizard);
+	{
+	    local $::expert = $::expert;
+	    diskdrake_interactive::main($o, $all_hds, $nowizard);
+	}
 	delete $o->{wizard} and return partitionWizard($o, 'nodiskdrake');
 	my @fstab = fsedit::get_all_fstab($all_hds);
 	
-- 
cgit v1.2.1