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);