| 1 | Index: portutil.tcl |
|---|
| 2 | =================================================================== |
|---|
| 3 | RCS file: /Volumes/src/cvs/od/proj/darwinports/base/src/port1.0/portutil.tcl,v |
|---|
| 4 | retrieving revision 1.137 |
|---|
| 5 | diff -u -r1.137 portutil.tcl |
|---|
| 6 | --- portutil.tcl 16 Aug 2003 19:56:27 -0000 1.137 |
|---|
| 7 | +++ portutil.tcl 25 Aug 2003 11:09:05 -0000 |
|---|
| 8 | @@ -934,7 +934,7 @@ |
|---|
| 9 | global os.platform |
|---|
| 10 | set passwd {\*} |
|---|
| 11 | set uid [nextuid] |
|---|
| 12 | - set gid [existsgroup nogroup] |
|---|
| 13 | + set gid nogroup |
|---|
| 14 | set realname ${name} |
|---|
| 15 | set home /dev/null |
|---|
| 16 | set shell /dev/null |
|---|
| 17 | @@ -948,6 +948,11 @@ |
|---|
| 18 | |
|---|
| 19 | if {[existsuser ${name}] != 0 || [existsuser ${uid}] != 0} { |
|---|
| 20 | return |
|---|
| 21 | + } |
|---|
| 22 | + |
|---|
| 23 | + set gid [existsgroup ${gid}] |
|---|
| 24 | + if {${gid} == 0} { |
|---|
| 25 | + return |
|---|
| 26 | } |
|---|
| 27 | |
|---|
| 28 | if {${os.platform} == "darwin"} { |
|---|
