diff options
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/printerdrake | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/perl-install/standalone/printerdrake b/perl-install/standalone/printerdrake index a4190f1e1..f31ca3e68 100755 --- a/perl-install/standalone/printerdrake +++ b/perl-install/standalone/printerdrake @@ -31,7 +31,14 @@ local $_ = join '', @ARGV; /-h/ and die "usage: printerdrake [--beginner] [--expert] [--auto] [--noauto] [--skiptest] [--testing] [--cups] [--lprng] [--lpd] [--pdq]\n"; -$::expert = /-expert/; +$::expert = 0; +if (/-expert/) { + $::expert = 1; +} elsif (/-beginner/) { + $::expert = 0; +} else { + printer::get_usermode (); +} $::noauto = /-noauto/; $::testing = /-testing/; |