please perl_checker:

- local'ize $_ before doing while (<...>)
- use "foreach" instead of "for"
- remove unneeded parentheses on the right side of infix if/foreach/unless

1 files changed, 3 insertions, 3 deletions

diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm
index b5c674702..32edbb867 100644
--- a/perl-install/printerdrake.pm
+++ b/perl-install/printerdrake.pm
@@ -177,7 +177,7 @@ sub detect {
 
 sub first_time_dialog {
     my ($printer, $in, $upNetwork) = @_;
-    return 1 if (printer::get_default_spooler () or $::isInstall);
+    return 1 if printer::get_default_spooler () or $::isInstall;
 
     # Wait message
     my $w = $in->wait_message(N("Printerdrake"), 
@@ -2452,7 +2452,7 @@ sub copy_queues_from {
 	@oldqueues = sort(@oldqueues);
 	$newspoolerstr = $printer::shortspooler_inv{$newspooler};
 	$oldspoolerstr = $printer::shortspooler_inv{$oldspooler};
-	for (@oldqueues) {
+	foreach (@oldqueues) {
 	    push (@queuesselected, 1);
 	    push (@queueentries, { text => $_, type => 'bool', 
 				   val => \$queuesselected[$#queuesselected] });
@@ -2488,7 +2488,7 @@ Mark the printers which you want to transfer and click
          \@queueentries
       )) {
 	my $queuecopied = 0;
-	for (@oldqueues) {
+	foreach (@oldqueues) {
 	    if (shift(@queuesselected)) {
                 my $oldqueue = $_;
                 my $newqueue = $_;