1$a 2. 3?^#include?a 4 5/* 6 * We don't have perliol.h in scope (and including it may cause other problems) 7 * so we create a routine, defined in perlio.h (where perliol.h is in scope) 8 * to zero out the posn field. 9 */ 10extern void _zero_posn_(PerlIO *fp); 11. 12/fp = saveifp;/a 13 /* reset position to begining of file */ 14 _zero_posn_(fp); 15. 16/anum = getgroups(0, gary);/a 17 if (anum <= 0) return FALSE; 18. 19w 20