From ab55e51fb6a834fbc8997b5f98a83b63089ca1e8 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 27 Oct 2000 12:02:19 +0000
Subject: list_skels returns list of existing directory and writeable.

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

diff --git a/perl-install/common.pm b/perl-install/common.pm
index 6b56550ac..9dcb55300 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -338,7 +338,7 @@ sub list_home() {
 }
 sub list_skels { 
     my ($prefix, $suffix) = @_;
-    map { "$prefix$_/$suffix" } '/etc/skel', '/root', list_home() }
+    grep { -d $_ && -w $_ } map { "$prefix$_/$suffix" } '/etc/skel', '/root', list_home() }
 
 sub translate {
     my ($s) = @_;
-- 
cgit v1.2.1