diff options
| author | Olivier Blin <oblin@mandriva.org> | 2004-08-19 11:29:00 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2004-08-19 11:29:00 +0000 |
| commit | d512e5b671300779b9ad738d71160e0562cfc76e (patch) | |
| tree | f28a85b20fb0ff5139207df93a6acaada10cda9d /perl-install/printer/printerdrake.pm | |
| parent | fb925dab841d46b6bf06443899742def86cc6f6b (diff) | |
| download | drakx-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.pm | 16 |
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") } } |