perl_checker fixes

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") }
 }