diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-02-14 20:37:40 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-02-14 20:37:40 +0000 |
| commit | e0bd63cd28ef5be6e525064ffcefb414760550ca (patch) | |
| tree | cb13ec0ab94c1f16c1e682de23d4a75430614374 /perl-install/standalone/diskdrake | |
| parent | b91894f2f3a57c6455626e60f21966da943b3ddc (diff) | |
| download | drakx-e0bd63cd28ef5be6e525064ffcefb414760550ca.tar drakx-e0bd63cd28ef5be6e525064ffcefb414760550ca.tar.gz drakx-e0bd63cd28ef5be6e525064ffcefb414760550ca.tar.bz2 drakx-e0bd63cd28ef5be6e525064ffcefb414760550ca.tar.xz drakx-e0bd63cd28ef5be6e525064ffcefb414760550ca.zip | |
fix expert and testing options handling
Diffstat (limited to 'perl-install/standalone/diskdrake')
| -rwxr-xr-x | perl-install/standalone/diskdrake | 4 |
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', ''); |