* new Makefiles in various directories, still all a bit crap
* removed some common stuff from */Makefile to settings.make
* copyright notices updated
+ * groupmanage: do not claim that root doesn't exist.
+ (Thanks to report from Ben Harris.)
--
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
-# $Id: groupmanage,v 1.5 2003/06/15 17:57:17 ian Exp $
+# $Id: groupmanage,v 1.6 2003/07/13 22:57:25 ian Exp $
sub usage {
&unlock;
} elsif (m/^\w[-0-9A-Za-z]*$/) {
y/\n//d;
$chgu=$_;
- getpwnam($chgu) || &quit("username $chgu does not exist");
+ defined(getpwnam($chgu)) || &quit("username $chgu does not exist");
eval "\@l = \@$clist; 1" || &quit("internal error: $@");
$already= grep($_ eq $chgu, @l);
if ($action eq 'add') {