summaryrefslogtreecommitdiffstats
path: root/perl-install/printer/printerdrake.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-13 14:25:59 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-13 14:25:59 +0000
commitb7661719bc1f1ebd078c7e7adb2eb25c83526c27 (patch)
tree9cedb533d18ccd4640a30488b731f83c3c438d58 /perl-install/printer/printerdrake.pm
parentf47690a41184c9f99a6fbf003b1045c3f4c0220b (diff)
downloaddrakx-b7661719bc1f1ebd078c7e7adb2eb25c83526c27.tar
drakx-b7661719bc1f1ebd078c7e7adb2eb25c83526c27.tar.gz
drakx-b7661719bc1f1ebd078c7e7adb2eb25c83526c27.tar.bz2
drakx-b7661719bc1f1ebd078c7e7adb2eb25c83526c27.tar.xz
drakx-b7661719bc1f1ebd078c7e7adb2eb25c83526c27.zip
add/remove spaces to make perl_checker happy
Diffstat (limited to 'perl-install/printer/printerdrake.pm')
-rw-r--r--perl-install/printer/printerdrake.pm9
1 files changed, 4 insertions, 5 deletions
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm
index 6c2fb76fc..c4ef448c1 100644
--- a/perl-install/printer/printerdrake.pm
+++ b/perl-install/printer/printerdrake.pm
@@ -1109,7 +1109,7 @@ sub setup_socket {
join '', ("socket://$remotehost", $remoteport ? (":$remoteport") : ());
#- LPD and LPRng need netcat ('nc') to access to socket printers
- if ((($printer->{SPOOLER} eq 'lpd') || ($printer->{SPOOLER} eq 'lprng'))&&
+ if ((($printer->{SPOOLER} eq 'lpd') || ($printer->{SPOOLER} eq 'lprng')) &&
(!$::testing) &&
(!files_exist((qw(/usr/bin/nc))))) {
$in->do_pkgs->install('nc');
@@ -2068,12 +2068,12 @@ You should make sure that the page size and the ink type/printing mode (if avail
my $j;
for ($j = 0; $j <= $#{$choicelists[$i]}; $j++) {
if ($choicelists[$i][$j] eq $userinputs[$i]) {
- push(@{$printer->{currentqueue}{options}}, $printer->{ARGS}[$i]{name} . "=". $shortchoicelists[$i][$j]);
+ push(@{$printer->{currentqueue}{options}}, $printer->{ARGS}[$i]{name} . "=" . $shortchoicelists[$i][$j]);
}
}
} elsif ($printer->{ARGS}[$i]{type} eq 'bool') {
# boolean option
- push(@{$printer->{currentqueue}{options}}, $printer->{ARGS}[$i]{name} . "=".
+ push(@{$printer->{currentqueue}{options}}, $printer->{ARGS}[$i]{name} . "=" .
(($choicelists[$i][0] eq $userinputs[$i]) ? "1" : "0"));
} else {
# numerical option
@@ -3447,8 +3447,7 @@ What do you want to modify on this printer?",
#- URI)
if ($printer->{configured}{$queue}) {
foreach my $type (qw(file lpd socket smb ncp postpipe)) {
- if ($printer->{currentqueue}{connect}
- =~ /^$type:/) {
+ if ($printer->{currentqueue}{connect} =~ /^$type:/) {
$printer->{TYPE} =
($type eq 'file' ? 'LOCAL' : uc($type));
last;