diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-01-22 09:21:36 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-01-22 09:21:36 +0000 |
| commit | 9bc8b5b56be1f30afe485f9b867b9b22a6e1ac61 (patch) | |
| tree | 0d93dec98e05e5007a943449917c9ef121f20721 /perl-install/printer | |
| parent | 4f1c80d9f6dc0648e93fcfeec1606baad0a0cdbb (diff) | |
| download | drakx-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')
| -rw-r--r-- | perl-install/printer/printerdrake.pm | 16 |
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))); } |