summaryrefslogtreecommitdiffstats
path: root/perl-install/printer/printerdrake.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-12 14:05:52 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-12 14:05:52 +0000
commitfc6a72175bf8ee7aed801e4003991e8e9c67c304 (patch)
tree7f435f15fbc29d6869ddd1db9cd95ef33ba77fde /perl-install/printer/printerdrake.pm
parent7902fe25c4e57756cbae9cce1e6a88c32e04b9f4 (diff)
downloaddrakx-fc6a72175bf8ee7aed801e4003991e8e9c67c304.tar
drakx-fc6a72175bf8ee7aed801e4003991e8e9c67c304.tar.gz
drakx-fc6a72175bf8ee7aed801e4003991e8e9c67c304.tar.bz2
drakx-fc6a72175bf8ee7aed801e4003991e8e9c67c304.tar.xz
drakx-fc6a72175bf8ee7aed801e4003991e8e9c67c304.zip
add/remove some spaces to make perl_checker happy
Diffstat (limited to 'perl-install/printer/printerdrake.pm')
-rw-r--r--perl-install/printer/printerdrake.pm20
1 files changed, 10 insertions, 10 deletions
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm
index 57e57fe28..97f1f00d7 100644
--- a/perl-install/printer/printerdrake.pm
+++ b/perl-install/printer/printerdrake.pm
@@ -689,7 +689,7 @@ complete => sub {
# Auto-detect printer model (works if host is an ethernet-connected
# printer)
- my $modelinfo = printer::detect::getSNMPModel ($remotehost);
+ my $modelinfo = printer::detect::getSNMPModel($remotehost);
my $auto_hpoj;
if ((defined($modelinfo)) &&
($modelinfo->{MANUFACTURER} ne "") &&
@@ -707,7 +707,7 @@ complete => sub {
"$modelinfo->{MANUFACTURER} $modelinfo->{MODEL}",
$printer->{currentqueue}{connect}, $auto_hpoj,
({port => $printer->{currentqueue}{connect},
- val => $modelinfo}));
+ val => $modelinfo }));
1;
}
@@ -1119,7 +1119,7 @@ sub setup_socket {
# Auto-detect printer model
my $modelinfo;
if ($printer->{AUTODETECT}) {
- $modelinfo = printer::detect::getSNMPModel ($remotehost);
+ $modelinfo = printer::detect::getSNMPModel($remotehost);
}
my $auto_hpoj;
if ((defined($modelinfo)) &&
@@ -1206,7 +1206,7 @@ complete => sub {
# Auto-detect printer model (works if host is an ethernet-connected
# printer)
my $remotehost = $1;
- my $modelinfo = printer::main::getSNMPModel ($remotehost);
+ my $modelinfo = printer::main::getSNMPModel($remotehost);
my $auto_hpoj;
if ((defined($modelinfo)) &&
($modelinfo->{MANUFACTURER} ne "") &&
@@ -1580,7 +1580,7 @@ sub get_db_entry {
$model =~ s/PS//;
$model =~ s/PostScript//;
$model =~ s/Series//;
- for $key (keys %printer::main::thedb) {
+ foreach my $key (keys %printer::main::thedb) {
if ((($::expert) && ($key =~ /^$make\|$model\|.*\(recommended\)$/)) ||
((!$::expert) && ($key =~ /^$make\|$model$/))) {
$printer->{DBENTRY} = $key;
@@ -1656,7 +1656,7 @@ sub choose_model {
$printer->{DBENTRY} = N("Raw printer (No driver)");
}
# Choose the printer/driver from the list
- return ($printer->{DBENTRY} = $in->ask_from_treelist(N("Printer model selection"),
+ return($printer->{DBENTRY} = $in->ask_from_treelist(N("Printer model selection"),
N("Which printer model do you have?") .
N("
@@ -2058,8 +2058,8 @@ You should make sure that the page size and the ink type/printing mode (if avail
}
}
}
- return (0);
- } );
+ return 0;
+ });
}
# Read out the user's choices and generate the appropriate command
# line arguments
@@ -2238,7 +2238,7 @@ It may take some time before the printer starts.\n");
and return 1;
}
} else {
- return ($::isWizard ? $res1 : 1);
+ return($::isWizard ? $res1 : 1);
}
return 2;
}
@@ -2418,7 +2418,7 @@ sub copy_queues_from {
foreach (@oldqueues) {
push (@queuesselected, 1);
push (@queueentries, { text => $_, type => 'bool',
- val => \$queuesselected[$#queuesselected] } );
+ val => \$queuesselected[$#queuesselected] });
}
# LPRng and LPD use the same config files, therefore one sees the
# queues of LPD when one uses LPRng and vice versa, but these queues