summaryrefslogtreecommitdiffstats
path: root/perl-install/printer/printerdrake.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-01-22 09:21:36 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-01-22 09:21:36 +0000
commit9bc8b5b56be1f30afe485f9b867b9b22a6e1ac61 (patch)
tree0d93dec98e05e5007a943449917c9ef121f20721 /perl-install/printer/printerdrake.pm
parent4f1c80d9f6dc0648e93fcfeec1606baad0a0cdbb (diff)
downloaddrakx-backup-do-not-use-9bc8b5b56be1f30afe485f9b867b9b22a6e1ac61.tar
drakx-backup-do-not-use-9bc8b5b56be1f30afe485f9b867b9b22a6e1ac61.tar.gz
drakx-backup-do-not-use-9bc8b5b56be1f30afe485f9b867b9b22a6e1ac61.tar.bz2
drakx-backup-do-not-use-9bc8b5b56be1f30afe485f9b867b9b22a6e1ac61.tar.xz
drakx-backup-do-not-use-9bc8b5b56be1f30afe485f9b867b9b22a6e1ac61.zip
perl_checker fixes
Diffstat (limited to 'perl-install/printer/printerdrake.pm')
-rw-r--r--perl-install/printer/printerdrake.pm16
1 files changed, 8 insertions, 8 deletions
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm
index 725212e55..79bd6a6e4 100644
--- a/perl-install/printer/printerdrake.pm
+++ b/perl-install/printer/printerdrake.pm
@@ -100,7 +100,7 @@ sub config_cups {
},
disabled => sub {
(!$printer->{cupsconfig}{localprintersshared});
- }},
+ } },
{ text => N("Automatically find available printers on remote machines"), type => 'bool',
val => \$printer->{cupsconfig}{remotebroadcastsaccepted} },
if_($::expert,
@@ -145,7 +145,7 @@ If some of these measures lead to problems for you, turn this option off, but th
clicked_may_quit => sub {
$buttonclicked = "add";
1;
- }},
+ } },
{ val => N("Edit selected host/network"),
type => 'button',
clicked_may_quit => sub {
@@ -154,7 +154,7 @@ If some of these measures lead to problems for you, turn this option off, but th
},
disabled => sub {
return ($#{$sharehosts->{list}} < 0);
- }},
+ } },
{ val => N("Remove selected host/network"),
type => 'button',
clicked_may_quit => sub {
@@ -163,18 +163,18 @@ If some of these measures lead to problems for you, turn this option off, but th
},
disabled => sub {
return ($#{$sharehosts->{list}} < 0);
- }},
+ } },
{ val => N("Done"),
type => 'button',
clicked_may_quit => sub {
$buttonclicked = "";
$subdone = 1;
1;
- }},
+ } },
]
);
- if (($buttonclicked eq "add") ||
- ($buttonclicked eq "edit")) {
+ if ($buttonclicked eq "add" ||
+ $buttonclicked eq "edit") {
my ($hostchoice, $ip);
if ($buttonclicked eq "add") {
# Use first entry as default for a new entry
@@ -193,7 +193,7 @@ If some of these measures lead to problems for you, turn this option off, but th
my @menu = (N("Local network(s)"));
my @interfaces =
printer::detect::getNetworkInterfaces();
- for my $interface (@interfaces) {
+ foreach my $interface (@interfaces) {
push (@menu,
(N("Interface \"%s\"", $interface)));
}