1 files changed, 2 insertions, 2 deletions
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', '');