summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-25 22:44:50 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-25 22:44:50 +0000
commit0ebdb29005bf63f814f41be33fff8f78e2812a63 (patch)
treed797ad7621a136777e227ab0ae238f41e4e2dc8b /perl-install
parenta80824189d2947c4cee72c35627cbf187c44fb3d (diff)
downloaddrakx-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-xperl-install/standalone/diskdrake3
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) {