diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-13 14:25:59 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-13 14:25:59 +0000 |
| commit | b7661719bc1f1ebd078c7e7adb2eb25c83526c27 (patch) | |
| tree | 9cedb533d18ccd4640a30488b731f83c3c438d58 /perl-install/printer/printerdrake.pm | |
| parent | f47690a41184c9f99a6fbf003b1045c3f4c0220b (diff) | |
| download | drakx-backup-do-not-use-b7661719bc1f1ebd078c7e7adb2eb25c83526c27.tar drakx-backup-do-not-use-b7661719bc1f1ebd078c7e7adb2eb25c83526c27.tar.gz drakx-backup-do-not-use-b7661719bc1f1ebd078c7e7adb2eb25c83526c27.tar.bz2 drakx-backup-do-not-use-b7661719bc1f1ebd078c7e7adb2eb25c83526c27.tar.xz drakx-backup-do-not-use-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.pm | 9 |
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; |