summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-11-26 15:58:20 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-11-26 15:58:20 +0000
commit2f7486f6ad9116f38e1c4b01036c785fe0431f6e (patch)
tree5f697c2b32d0ba44f95fb1d12ae5846f1a97b63c /perl-install
parent53347671e99d4ea0b88efa6ca4637f178d0f4296 (diff)
downloaddrakx-2f7486f6ad9116f38e1c4b01036c785fe0431f6e.tar
drakx-2f7486f6ad9116f38e1c4b01036c785fe0431f6e.tar.gz
drakx-2f7486f6ad9116f38e1c4b01036c785fe0431f6e.tar.bz2
drakx-2f7486f6ad9116f38e1c4b01036c785fe0431f6e.tar.xz
drakx-2f7486f6ad9116f38e1c4b01036c785fe0431f6e.zip
miaouh
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printer/printerdrake.pm25
1 files changed, 8 insertions, 17 deletions
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm
index 277e6abcd..aea361bab 100644
--- a/perl-install/printer/printerdrake.pm
+++ b/perl-install/printer/printerdrake.pm
@@ -71,8 +71,8 @@ sub config_cups {
$autoconf = printer::main::get_cups_autoconf();
#- Remember the server/port/autoconf settings to check whether the user
#- has changed them.
- my $oldserver = $server;
- my $oldport = $port;
+ my $oldserver = $server;
+ my $oldport = $port;
my $oldautoconf = $autoconf;
#- then ask user for this combination and rewrite /etc/cups/cupsd.conf
@@ -158,8 +158,7 @@ sub first_time_dialog {
return 1 if printer::default::get_spooler () or $::isInstall;
# Wait message
- my $w = $in->wait_message(N("Printerdrake"),
- N("Checking your system..."));
+ my $w = $in->wait_message(N("Printerdrake"), N("Checking your system..."));
# Auto-detect local printers
my @autodetected = printer::detect::local_detect();
@@ -187,9 +186,7 @@ sub first_time_dialog {
push (@printerlist, N("\nand %d unknown printers are ",
$unknown_printers));
} else {
- push (@printerlist, ($morethanoneprinters ?
- N("\nare ") :
- N("\nis ")));
+ push (@printerlist, ($morethanoneprinters ? N("\nare ") : N("\nis ")));
}
push (@printerlist, N("directly connected to your system"));
} else {
@@ -1365,8 +1362,7 @@ sub setup_common {
#- Read the printer driver database if necessary
if ((keys %printer::main::thedb) == 0) {
- my $w = $in->wait_message(N("Printerdrake"),
- N("Reading printer database..."));
+ my $w = $in->wait_message(N("Printerdrake"), N("Reading printer database..."));
printer::main::read_printer_db($printer->{SPOOLER});
}
@@ -1406,7 +1402,7 @@ sub setup_common {
} else {
$dbmakemodel = $entry;
}
- next if !$dbmakemodel;
+ next unless $dbmakemodel;
$dbmakemodel =~ s/\|/\\\|/;
my $searchterm = $descr;
$searchterm =~ s/\|/\\\|/;
@@ -1423,10 +1419,7 @@ sub setup_common {
$printer->{DBENTRY} = $entry;
}
}
- if (!$printer->{DBENTRY}) {
- $printer->{DBENTRY} =
- bestMatchSentence ($descr, keys %printer::main::thedb);
- }
+ $printer->{DBENTRY} ||= bestMatchSentence ($descr, keys %printer::main::thedb);
# If the manufacturer was not guessed correctly, discard the
# guess.
$printer->{DBENTRY} =~ /^([^\|]+)\|/;
@@ -2510,9 +2503,7 @@ sub check_network {
} else {
system("/usr/sbin/drakconnect");
}
- if (files_exist("/etc/sysconfig/network-scripts/drakconnect_conf")) {
- $go_on = 1;
- }
+ $go_on = files_exist("/etc/sysconfig/network-scripts/drakconnect_conf");
} else {
return 1;
}