Select Code to Download

#!perl -w

...
BAD ../perl.exe text=0, executable=0
OK  ../perl.exe executable=1, text=0
OK  ../perl.exe text=0, executable=1

  Perl_pp_stat() in pp_sys.c implements Perl stat()
    calls PerlLIONameStat()
...
          calls fstat(fd, sbuf)  // Win32 library call
            sbuf.st_mode == 0100666 octal, for perl.exe, BAD

// _stattest.cpp : compare MS implementation of functions stat() and f
+stat()
// rudif@bluemail.ch 1 Jul 2001
...
    }
}

  stat()      by _stat()
  fstat()     by _fstat()
  struct stat by struct _stat