From e82935d35ecbe26d6e6e7eebbaf8792590e55cd9 Mon Sep 17 00:00:00 2001
From: Florian Weimer <fw@deneb.enyo.de>
Date: Thu, 15 May 2008 09:39:53 +0200
Subject: [PATCH] Fix an endless loop in user enumeration on some systems

Initially reported by Niall O. Broin.
---
 dowkd.in | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/dowkd.in b/dowkd.in
index c94fff9..1dceff7 100644
--- a/dowkd.in
+++ b/dowkd.in
@@ -235,11 +235,15 @@ sub from_user ($) {
 }
 
 sub from_user_all () {
+    # This was one loop initially, but does not work with some Perl
+    # versions.
     setpwent;
+    my @names;
     while (my $name = getpwent) {
-	from_user $name;
+	push @names, $name;
     }
     endpwent;
+    from_user $_ for @names;
 }
 
 if (@ARGV && $ARGV[0] eq '-c') {
-- 
2.11.4.GIT