summaryrefslogtreecommitdiffstats
path: root/perl-install/printer/printerdrake.pm
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2004-08-19 11:29:00 +0000
committerOlivier Blin <oblin@mandriva.org>2004-08-19 11:29:00 +0000
commitd512e5b671300779b9ad738d71160e0562cfc76e (patch)
treef28a85b20fb0ff5139207df93a6acaada10cda9d /perl-install/printer/printerdrake.pm
parentfb925dab841d46b6bf06443899742def86cc6f6b (diff)
downloaddrakx-backup-do-not-use-d512e5b671300779b9ad738d71160e0562cfc76e.tar
drakx-backup-do-not-use-d512e5b671300779b9ad738d71160e0562cfc76e.tar.gz
drakx-backup-do-not-use-d512e5b671300779b9ad738d71160e0562cfc76e.tar.bz2
drakx-backup-do-not-use-d512e5b671300779b9ad738d71160e0562cfc76e.tar.xz
drakx-backup-do-not-use-d512e5b671300779b9ad738d71160e0562cfc76e.zip
perl_checker fixes
Diffstat (limited to 'perl-install/printer/printerdrake.pm')
-rw-r--r--perl-install/printer/printerdrake.pm16
1 files changed, 9 insertions, 7 deletions
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm
index 84f000b15..044cc0a7d 100644
--- a/perl-install/printer/printerdrake.pm
+++ b/perl-install/printer/printerdrake.pm
@@ -2451,7 +2451,7 @@ sub choose_model {
N("Reading printer database..."));
printer::main::read_printer_db($printer, $printer->{SPOOLER});
}
- if (!member($printer->{DBENTRY}, keys(%printer::main::thedb))) {
+ unless (exists($printer::main::thedb{$printer->{DBENTRY}})) {
$printer->{DBENTRY} = N("Raw printer (No driver)");
}
# Choose the printer/driver from the list
@@ -2537,7 +2537,7 @@ sub installppd {
return 0;
}
# Let user select a PPD file from a floppy, hard disk, ...
- $ppdfile = $in->ask_file(N("Select PPD file"), "$dir");
+ $ppdfile = $in->ask_file(N("Select PPD file"), $dir);
last if !$ppdfile;
if (! -r $ppdfile) {
$in->ask_warn(N("Error"),
@@ -3458,11 +3458,13 @@ sub start_network {
my $_w = $in->wait_message(N("Printerdrake"),
N("Starting network..."));
if ($::isInstall) {
- return ($upNetwork and
- do { my $ret = &$upNetwork();
- undef $upNetwork;
- sleep(1);
- $ret });
+ my $ret;
+ if ($upNetwork) {
+ $ret = &$upNetwork();
+ undef $upNetwork;
+ sleep(1);
+ }
+ return $ret;
} else { return printer::services::start("network") }
}