summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-11-04 16:32:21 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-11-04 16:32:21 +0000
commitead06eb55004bc197f37c4f4a68230b40186a291 (patch)
treef86c4eb913f40485da0190464a430e47d3b879ec /perl-install
parentead7cd9cd06644a083bc0c110b1f99593d2ae4a6 (diff)
downloaddrakx-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')
-rw-r--r--perl-install/printer.pm12
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;
}