Allow uid and gid of zero

andk · Jun 5, 2017 · 3c5e55e · 3c5e55e
1 parent 7690435
commit 3c5e55e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/PAUSE/pmfile.pm b/lib/PAUSE/pmfile.pm
@@ -456,10 +456,10 @@ sub parse_version {
         } else {
             $self->connect->{InactiveDestroy} = 1;
             my($gnam,$gpw,$gid,$gmem) = getgrnam($PAUSE::Config->{ML_CHOWN_GROUP});
-            die "Could not determine GID of $PAUSE::Config->{ML_CHOWN_GROUP}" unless $gid;
+            die "Could not determine GID of $PAUSE::Config->{ML_CHOWN_GROUP}" unless defined $gid;
             my($uname,$upw,$uid,$ugid,$q,$c,$gcos,$udir,$ushell) =
                 getpwnam($PAUSE::Config->{ML_CHOWN_USER});
-            die "Could not determine UID of $PAUSE::Config->{ML_CHOWN_USER}" unless $uid;
+            die "Could not determine UID of $PAUSE::Config->{ML_CHOWN_USER}" unless defined $uid;
             $( = $gid; $) = "$gid $gid";
             $< = $> = $uid;