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