You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by ra...@apache.org on 2003/07/06 06:51:20 UTC
cvs commit: modperl/src/modules/perl Apache.xs
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);
Re: cvs commit: modperl/src/modules/perl Apache.xs
Posted by "Philippe M. Chiasson" <go...@cpan.org>.
Wouldn't this be worthy of being logged in Changes ?
On Sun, 2003-07-06 at 12:51, randyk@apache.org wrote:
> 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);
>
>
>
>