cvs commit: modperl-2.0/src/modules/perl mod_perl.h

[dougm]

dougm   2002/05/31 08:41:11

  Modified:src/modules/perl mod_perl.h
  Log:
  add some MP_LARGE_FILES_ macros that could come in handy
  
  Revision  ChangesPath
  1.43  +22 -0 modperl-2.0/src/modules/perl/mod_perl.h
  
  Index: mod_perl.h
  ===
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/mod_perl.h,v
  retrieving revision 1.42
  retrieving revision 1.43
  diff -u -r1.42 -r1.43
  --- mod_perl.h19 May 2002 02:26:11 -  1.42
  +++ mod_perl.h31 May 2002 15:41:11 -  1.43
   -14,6 +14,28 
   #include modperl_hooks.h
   #include modperl_perl_global.h
   
  +/* both perl and apr have largefile support enabled */
  +#define MP_LARGE_FILES_ENABLED \
  +   (defined(USE_LARGE_FILES)  APR_HAS_LARGE_FILES)
  +
  +/* both perl and apr have largefile support disabled */
  +#define MP_LARGE_FILES_DISABLED \
  +   (!defined(USE_LARGE_FILES)  !APR_HAS_LARGE_FILES)
  +
  +/* perl support is enabled, apr support is disabled */
  +#define MP_LARGE_FILES_PERL_ONLY \
  +   (defined(USE_LARGE_FILES)  !APR_HAS_LARGE_FILES)
  +
  +/* apr support is enabled, perl support is disabled */
  +#define MP_LARGE_FILES_APR_ONLY \
  +   (!defined(USE_LARGE_FILES)  APR_HAS_LARGE_FILES)
  +
  +/* conflict due to not have either both perl and apr
  + * support enabled or both disabled
  + */
  +#define MP_LARGE_FILES_CONFLICT \
  +   !(MP_LARGE_FILES_ENABLED || MP_LARGE_FILES_DISABLED)
  +
   #ifdef MP_USE_GTOP
   #include modperl_gtop.h
   #endif
  
  
  

cvs commit: modperl-2.0/xs/APR/PerlIO apr_perlio.c

[dougm]

dougm   2002/05/31 08:41:40

  Modified:xs/APR/PerlIO apr_perlio.c
  Log:
  seek is ok if both perl and apr have largefiles enabled
  
  Revision  ChangesPath
  1.14  +1 -1  modperl-2.0/xs/APR/PerlIO/apr_perlio.c
  
  Index: apr_perlio.c
  ===
  RCS file: /home/cvs/modperl-2.0/xs/APR/PerlIO/apr_perlio.c,v
  retrieving revision 1.13
  retrieving revision 1.14
  diff -u -r1.13 -r1.14
  --- apr_perlio.c  31 May 2002 02:20:29 -  1.13
  +++ apr_perlio.c  31 May 2002 15:41:40 -  1.14
   -152,7 +152,7 
   IV code;
   apr_off_t seek_offset = 0;
   
  -#ifdef USE_LARGE_FILES
  +#if MP_LARGE_FILES_PERL_ONLY
   if (offset != 0) {
   Perl_croak(aTHX_ PerlIO::APR::seek with non-zero offset
   not supported with -Duselargefiles);