summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-02-14 20:37:40 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-02-14 20:37:40 +0000
commite0bd63cd28ef5be6e525064ffcefb414760550ca (patch)
treecb13ec0ab94c1f16c1e682de23d4a75430614374 /perl-install
parentb91894f2f3a57c6455626e60f21966da943b3ddc (diff)
downloaddrakx-backup-do-not-use-e0bd63cd28ef5be6e525064ffcefb414760550ca.tar
drakx-backup-do-not-use-e0bd63cd28ef5be6e525064ffcefb414760550ca.tar.gz
drakx-backup-do-not-use-e0bd63cd28ef5be6e525064ffcefb414760550ca.tar.bz2
drakx-backup-do-not-use-e0bd63cd28ef5be6e525064ffcefb414760550ca.tar.xz
drakx-backup-do-not-use-e0bd63cd28ef5be6e525064ffcefb414760550ca.zip
fix expert and testing options handling
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/diskdrake4
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', '');