*** empty log message ***

diff --git a/changelog b/changelog
index 774706f91f3d72e71ff7a783657fbc56aaa2b513..b727696104bca4cee4df6e5595e8e45bed39cdcf 100644 (file)
--- a/changelog
+++ b/changelog
@@ -4,6 +4,8 @@ userv-utils (0.2.99.0.2) unstable; urgency=low
   * new Makefiles in various directories, still all a bit crap
   * removed some common stuff from */Makefile to settings.make
   * copyright notices updated
   * 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.)

 
  --
 
 
  --
 

diff --git a/debian/changelog b/debian/changelog
index 774706f91f3d72e71ff7a783657fbc56aaa2b513..b727696104bca4cee4df6e5595e8e45bed39cdcf 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -4,6 +4,8 @@ userv-utils (0.2.99.0.2) unstable; urgency=low
   * new Makefiles in various directories, still all a bit crap
   * removed some common stuff from */Makefile to settings.make
   * copyright notices updated
   * 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.)

 
  --
 
 
  --
 

diff --git a/groupmanage/groupmanage b/groupmanage/groupmanage
index 90957fdd415ced1c7b3eb984bedefcf840873aa0..ffb45c09ec01078a1d8ca4b05f377054dddab3ff 100755 (executable)
--- a/groupmanage/groupmanage
+++ b/groupmanage/groupmanage
@@ -227,7 +227,7 @@ while (@ARGV) {
     } elsif (m/^\w[-0-9A-Za-z]*$/) {
         y/\n//d;
         $chgu=$_;
     } 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') {
         eval "\@l = \@$clist; 1" || &quit("internal error: $@");
         $already= grep($_ eq $chgu, @l);
         if ($action eq 'add') {