view release on metacpan or  search on metacpan

BSDGlob.xs  view on Meta::CPAN

void
doglob(pattern,...)
  char *pattern
  PROTOTYPE:
  PREINIT:
  glob_t pglob;
  int i;
  int retval;
  int flags = 0;
  SV *tmp;
  PPCODE:
  /* allow for optional flags argument */
  if (items > 1) {
    flags = (int) SvIV(ST(1));
  }

  /* call glob */
  retval = bsd_glob(pattern, flags, errfunc, &pglob);
  GLOB_ERROR = retval;

  /* return any matches found */