randyk      2003/07/05 21:51:20

  Modified:    src/modules/perl Apache.xs
  Log:
  Workaround to allow compiling with Win32 ActivePerl 8xx, which
  introduced LARGE_FILES support.
  
  Revision  Changes    Path
  1.128     +15 -1     modperl/src/modules/perl/Apache.xs
  
  Index: Apache.xs
  ===================================================================
  RCS file: /home/cvs/modperl/src/modules/perl/Apache.xs,v
  retrieving revision 1.127
  retrieving revision 1.128
  diff -u -r1.127 -r1.128
  --- Apache.xs 14 Mar 2003 06:05:06 -0000      1.127
  +++ Apache.xs 6 Jul 2003 04:51:20 -0000       1.128
  @@ -1962,8 +1962,22 @@
               croak("statbuf is not an object");
           }
       }
  -
  +/* workaround for USE_LARGE_FILES on WIN32 ActivePerl 8xx */
  +#if defined(WIN32) && defined(USE_LARGE_FILES)
  +    statcache.st_dev = r->finfo.st_dev;
  +    statcache.st_ino = r->finfo.st_ino;
  +    statcache.st_mode = r->finfo.st_mode;
  +    statcache.st_nlink = r->finfo.st_nlink;
  +    statcache.st_uid = r->finfo.st_uid;
  +    statcache.st_gid = r->finfo.st_gid;
  +    statcache.st_rdev = r->finfo.st_rdev;
  +    statcache.st_size = (__int64) r->finfo.st_size;
  +    statcache.st_atime = r->finfo.st_atime;
  +    statcache.st_mtime = r->finfo.st_mtime;
  +    statcache.st_ctime = r->finfo.st_ctime;
  +#else
       statcache = r->finfo;
  +#endif
       if (r->finfo.st_mode) {
        laststatval = 0;
           sv_setpv(statname, r->filename);
  
  
  

Reply via email to