diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-10-23 11:52:10 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-10-23 11:52:10 +0000 |
commit | 648f316884fa899505a4976c32679e45bf7c8880 (patch) | |
tree | 54a9b522cd80f415ce8730a38e716a0f01dcd1ef /perl-install/printerdrake.pm | |
parent | b885c57ff0b0665dbdd1a851f9ed30db62d22dd2 (diff) | |
download | drakx-backup-do-not-use-648f316884fa899505a4976c32679e45bf7c8880.tar drakx-backup-do-not-use-648f316884fa899505a4976c32679e45bf7c8880.tar.gz drakx-backup-do-not-use-648f316884fa899505a4976c32679e45bf7c8880.tar.bz2 drakx-backup-do-not-use-648f316884fa899505a4976c32679e45bf7c8880.tar.xz drakx-backup-do-not-use-648f316884fa899505a4976c32679e45bf7c8880.zip |
perl_checker fixes
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(); } |