diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-11-04 16:32:21 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-11-04 16:32:21 +0000 |
| commit | ead06eb55004bc197f37c4f4a68230b40186a291 (patch) | |
| tree | f86c4eb913f40485da0190464a430e47d3b879ec /perl-install/printer.pm | |
| parent | ead7cd9cd06644a083bc0c110b1f99593d2ae4a6 (diff) | |
| download | drakx-backup-do-not-use-ead06eb55004bc197f37c4f4a68230b40186a291.tar drakx-backup-do-not-use-ead06eb55004bc197f37c4f4a68230b40186a291.tar.gz drakx-backup-do-not-use-ead06eb55004bc197f37c4f4a68230b40186a291.tar.bz2 drakx-backup-do-not-use-ead06eb55004bc197f37c4f4a68230b40186a291.tar.xz drakx-backup-do-not-use-ead06eb55004bc197f37c4f4a68230b40186a291.zip | |
typo fixes
Diffstat (limited to 'perl-install/printer.pm')
| -rw-r--r-- | perl-install/printer.pm | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/perl-install/printer.pm b/perl-install/printer.pm index a769a1843..bac8eef54 100644 --- a/perl-install/printer.pm +++ b/perl-install/printer.pm @@ -29,7 +29,7 @@ our %spoolers = ('ppq' => { 'short_name' => _("PDQ") }, 'lpd' => { - 'help' => "/usr/bin/pdq -h -P %s 2>&1 |" + 'help' => "/usr/bin/pdq -h -P %s 2>&1 |", 'print_command' => 'lpr-cups', 'long_name' => _("LPD - Line Printer Daemon"), 'short_name' => _("LPD") @@ -77,12 +77,16 @@ sub spooler { # LPRng is not officially supported any more since Mandrake 9.0, so # show it only in the spooler menu when it was manually installed. + my @res; if (files_exist((qw(/usr/lib/filters/lpf /usr/sbin/lpd)))) { - return @spooler_inv{qw(cups lprng pdq)}{long_name}; + foreach (qw(cups lprng pdq)) { push @res, $spooler_inv{$_}{long_name} }; +# {qw(cups lprng pdq)}{long_name}; } else { - return @spooler_inv{qw(cups pdq)}{long_name}; + foreach (qw(cups pdq)) { push @res, $spooler_inv{$_}{long_name} }; +# return spooler_inv{qw(cups pdq)}{long_name}; } + return @res; } sub printer_type($) { @@ -1694,7 +1698,7 @@ sub help_output { open F, ($::testing ? $prefix : "chroot $prefix/ ") . sprintf($spoolers{$spooler}{help}, $queue); $helptext = join("", <F>); close F; - $helptext = "Option list not available!\n"; if ($spooler eq 'lpq' && (!$helptext || ($helptext eq ""))); + $helptext = "Option list not available!\n" if ($spooler eq 'lpq' && (!$helptext || ($helptext eq ""))); return $helptext; } |