summaryrefslogtreecommitdiffstats
path: root/perl-install/common.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/common.pm')
-rw-r--r--perl-install/common.pm2
1 files changed, 1 insertions, 1 deletions
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) = @_;