diff options
Diffstat (limited to 'U/groupstype.U')
-rw-r--r-- | U/groupstype.U | 19 |
1 files changed, 6 insertions, 13 deletions
diff --git a/U/groupstype.U b/U/groupstype.U index f8ebab4ad3..355ea14980 100644 --- a/U/groupstype.U +++ b/U/groupstype.U @@ -1,12 +1,3 @@ -?X: These units are based on the ones supplied with dist-3.0 -?X: patchlevel 22. They have been changed or enhanced to work with -?X: perl5alpha. I would appreciate hearing about any changes, -?X: corrections, or enhancements. -?X: Andy Dougherty doughera@lafcol.lafayette.edu -?X: Dept. of Physics -?X: Lafayette College -?X: Easton, PA 18042-1782 -?X: Sat Apr 2 15:45:17 EST 1994 ?RCS: $Id: groupstype.U,v$ ?RCS: ?RCS: You may redistribute only under the terms of the Artistic Licence, @@ -17,7 +8,7 @@ ?RCS: ?RCS: $Log: groupstype.U,v $ ?RCS: -?MAKE:groupstype: gidtype d_getgrps Myread Oldconfig contains Findhdr +?MAKE:groupstype: gidtype d_getgrps Myread Oldconfig Findhdr cat Setvar ?MAKE: -pick add $@ %< ?INIT:groupstype='' ?S:groupstype: @@ -48,11 +39,13 @@ case "$d_getgrps" in echo " " $cat <<EOM What is the type of the second argument to getgroups()? Usually this -is the same as group ids, "$gidtype", but not always. +is the same as group ids, $gidtype, but not always. EOM rp="What type is the second arguement to getgroups()?" . ./myread - groupstype="$ans" + val="$ans" ;; -*) groupstype="$gidtype";; +*) val="$gidtype";; esac +set groupstype +eval $setvar |