view release on metacpan or  search on metacpan

stat2.xs  view on Meta::CPAN

}

MODULE = File::stat2		PACKAGE = File::stat2		

void
_stat2 (path)
      const char * path
    INIT:
      struct stat st;
      char ino[128];
    PPCODE:
      if (stat (path, &st) == 0)
        {
          sprintf (ino, "%llu", (unsigned long long)st.st_ino);
          XPUSHs (sv_2mortal (newSViv (st.st_dev    )));
          XPUSHs (sv_2mortal (newSVpv (ino       , 0)));
          XPUSHs (sv_2mortal (newSViv (st.st_mode   )));
          XPUSHs (sv_2mortal (newSViv (st.st_nlink  )));
          XPUSHs (sv_2mortal (newSViv (st.st_uid    )));
          XPUSHs (sv_2mortal (newSViv (st.st_gid    )));
          XPUSHs (sv_2mortal (newSViv (st.st_rdev   )));