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/;