From 56605b02bd321dbda84c97e2b2aefc2ba8e37da6 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 6 Jan 2003 10:02:37 +0000
Subject: fix displaying list of availlable printer spoolers

---
 perl-install/printer/main.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/printer')

diff --git a/perl-install/printer/main.pm b/perl-install/printer/main.pm
index ebf29db59..e593988df 100644
--- a/perl-install/printer/main.pm
+++ b/perl-install/printer/main.pm
@@ -52,7 +52,7 @@ sub spooler {
     my @res;
     my @spoolers = qw(cups pdq);
     push @spoolers, 'lprng' if files_exist(qw(/usr/lib/filters/lpf /usr/sbin/lpd));
-    push @res, $spooler_inv{$_}{long_name} foreach @spoolers;
+    push @res, $spoolers{$_}{long_name} foreach @spoolers;
     return @res;
 }
 
-- 
cgit v1.2.1