diff options
Diffstat (limited to 'perl-install/printerdrake.pm')
| -rw-r--r-- | perl-install/printerdrake.pm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm index 312ccff2d..ab462b977 100644 --- a/perl-install/printerdrake.pm +++ b/perl-install/printerdrake.pm @@ -194,7 +194,7 @@ sub first_time_dialog { $localprinterspresent = 1; for my $printer (@autodetected) { my $entry = $printer->{val}{DESCRIPTION}; - if ($entry) {push (@printerlist, " - $entry\n");} + if ($entry) { push (@printerlist, " - $entry\n") } } my $morethanoneprinters = ($#printerlist > 0); my $unknown_printers = $#autodetected - $#printerlist; @@ -502,8 +502,8 @@ sub setup_local_autoscan { for (my $i = 0; $i <= $#prefixes; $i++) { my $firstinlist = ($first =~ m!^$prefixes[$i]!); my $secondinlist = ($second =~ m!^$prefixes[$i]!); - if (($firstinlist) && (!$secondinlist)) {return -1}; - if (($secondinlist) && (!$firstinlist)) {return 1}; + if (($firstinlist) && (!$secondinlist)) { return -1 }; + if (($secondinlist) && (!$firstinlist)) { return 1 }; } return $first cmp $second; } keys(%{$menuentries}); @@ -1150,7 +1150,7 @@ sub setup_socket { } # Auto-detect printer model - my $modelinfo = undef; + my $modelinfo; if ($printer->{AUTODETECT}) { $modelinfo = printer::getSNMPModel ($remotehost); } @@ -2665,6 +2665,7 @@ sub security_check { if ($::isInstall) { $security = $in->{security}; } else { + require any; $security = any::get_secure_level(); } |