diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-25 22:44:50 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-25 22:44:50 +0000 |
| commit | 0ebdb29005bf63f814f41be33fff8f78e2812a63 (patch) | |
| tree | d797ad7621a136777e227ab0ae238f41e4e2dc8b /perl-install | |
| parent | a80824189d2947c4cee72c35627cbf187c44fb3d (diff) | |
| download | drakx-0ebdb29005bf63f814f41be33fff8f78e2812a63.tar drakx-0ebdb29005bf63f814f41be33fff8f78e2812a63.tar.gz drakx-0ebdb29005bf63f814f41be33fff8f78e2812a63.tar.bz2 drakx-0ebdb29005bf63f814f41be33fff8f78e2812a63.tar.xz drakx-0ebdb29005bf63f814f41be33fff8f78e2812a63.zip | |
fix handling of options --expert and --testing
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/diskdrake | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/perl-install/standalone/diskdrake b/perl-install/standalone/diskdrake index 285557781..4d831de6b 100755 --- a/perl-install/standalone/diskdrake +++ b/perl-install/standalone/diskdrake @@ -47,6 +47,9 @@ while (my $e = shift @l) { } } +$::expert = exists $options{expert}; delete $options{expert}; +$::testing = exists $options{testing}; delete $options{testing}; + my @types = qw(hd nfs smb dav removable fileshare); my ($type, $para) = ('hd', ''); foreach (@types) { |