From e0bd63cd28ef5be6e525064ffcefb414760550ca Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 14 Feb 2002 20:37:40 +0000
Subject: fix expert and testing options handling

---
 perl-install/standalone/diskdrake | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/standalone')

diff --git a/perl-install/standalone/diskdrake b/perl-install/standalone/diskdrake
index 7bef9bc9d..69b84b0dc 100755
--- a/perl-install/standalone/diskdrake
+++ b/perl-install/standalone/diskdrake
@@ -49,8 +49,8 @@ while (my $e = shift @l) {
 	$options{$option} = '';
     }
 }
-$::expert = delete $options{expert};
-$::testing = delete $options{testing};
+$::expert = defined(delete $options{expert});
+$::testing = defined(delete $options{testing});
 
 my @types = qw(hd nfs smb removable fileshare);
 my ($type, $para) = ('hd', '');
-- 
cgit v1.2.1