From ead06eb55004bc197f37c4f4a68230b40186a291 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 4 Nov 2002 16:32:21 +0000
Subject: typo fixes

---
 perl-install/printer.pm | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

(limited to 'perl-install')

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;
 }
 
-- 
cgit v1.2.1