summaryrefslogtreecommitdiffstats
path: root/perl-install/printerdrake.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-10-23 11:52:10 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-10-23 11:52:10 +0000
commit648f316884fa899505a4976c32679e45bf7c8880 (patch)
tree54a9b522cd80f415ce8730a38e716a0f01dcd1ef /perl-install/printerdrake.pm
parentb885c57ff0b0665dbdd1a851f9ed30db62d22dd2 (diff)
downloaddrakx-648f316884fa899505a4976c32679e45bf7c8880.tar
drakx-648f316884fa899505a4976c32679e45bf7c8880.tar.gz
drakx-648f316884fa899505a4976c32679e45bf7c8880.tar.bz2
drakx-648f316884fa899505a4976c32679e45bf7c8880.tar.xz
drakx-648f316884fa899505a4976c32679e45bf7c8880.zip
perl_checker fixes
Diffstat (limited to 'perl-install/printerdrake.pm')
-rw-r--r--perl-install/printerdrake.pm9
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();
}