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