From 11db875d0701d3072ddbd969be3dba3b04c027da Mon Sep 17 00:00:00 2001
From: Florent Villard <warly@mandriva.com>
Date: Tue, 10 Feb 2004 13:52:27 +0000
Subject: fix list_printers function

---
 samba_wizard/Samba.pm | 9 +--------
 1 file changed, 1 insertion(+), 8 deletions(-)

diff --git a/samba_wizard/Samba.pm b/samba_wizard/Samba.pm
index 91d138d4..0c8ee6e3 100755
--- a/samba_wizard/Samba.pm
+++ b/samba_wizard/Samba.pm
@@ -334,14 +334,7 @@ sub list_printers {
     my @list if 0;
 
     return @list if @list;
-    @list = sort grep { /^(?!#).+/ } map {
-        split(':', $_)->[0];
-    } cat_("/etc/printcap");
-    if (@list) {
-	@list
-    } else {
-	()
-    }
+    sort grep { ! /^#/ } map { /([^:]*):/ and $1 } cat_("/etc/printcap");
 }
 
 
-- 
cgit v1.2.1