From 0ebdb29005bf63f814f41be33fff8f78e2812a63 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 25 Nov 2002 22:44:50 +0000 Subject: fix handling of options --expert and --testing --- perl-install/standalone/diskdrake | 3 +++ 1 file changed, 3 insertions(+) (limited to 'perl-install/standalone/diskdrake') 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) { -- cgit v1.2.1