diff options
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index f1f0774b5..4b7fa5ae2 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -585,11 +585,15 @@ sub servicesConfig { sub printerConfig { my ($o, $clicked) = @_; - return if $::corporate && $::beginner && !$clicked; + return if $::corporate; require printer; - eval { add2hash($o->{printer} ||= {}, printer::getinfo($o->{prefix})) }; require printerdrake; + + if ($::beginner && !$clicked) { + printerdrake::auto_detect($o) or return; + } + eval { add2hash($o->{printer} ||= {}, printer::getinfo($o->{prefix})) }; printerdrake::main($o->{printer}, $o, sub { $o->pkg_install($_[0]) }); } |