summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printerdrake.pm13
1 files changed, 8 insertions, 5 deletions
diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm
index 61bec7737..d94d0886b 100644
--- a/perl-install/printerdrake.pm
+++ b/perl-install/printerdrake.pm
@@ -2747,18 +2747,21 @@ sub install_spooler {
my $w = $in->wait_message(_("Printerdrake"),
_("Checking installed software..."));
if ((!$::testing) &&
- ((!printer::files_exist((qw(/usr/lib/cups/cgi-bin/printers.cgi
+ (!printer::files_exist((qw(/usr/lib/cups/cgi-bin/printers.cgi
/sbin/ifconfig
/usr/bin/xpp),
($::expert ?
"/usr/share/cups/model/postscript.ppd.gz" : ())
- ))) ||
- ((!printer::files_exist((qw(/usr/bin/wget)))) &&
- (!printer::files_exist((qw(/usr/bin/curl))))))) {
+ )))) {
$in->do_pkgs->install(('cups', 'net-tools', 'xpp',
- 'webfetch',
($::expert ? 'cups-drivers' : ())));
}
+ if ((!$::testing) &&
+ ((!printer::files_exist((qw(/usr/bin/wget)))) &&
+ (!printer::files_exist((qw(/usr/bin/curl)))))) {
+ $in->do_pkgs->install
+ ($::isInstall ? 'curl' : 'webfetch');
+ }
# Try to start the network when CUPS is the spooler, so that
# remote CUPS printers get displayed (especially during
# installation)