perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@hyperreal.org
Subject cvs commit: modperl/src/modules/perl Apache.xs mod_perl.c mod_perl.h perl_PL.h
Date Mon, 18 Jan 1999 03:26:21 GMT
dougm       99/01/17 19:26:21

  Modified:    .        Changes ToDo
               src/modules/perl Apache.xs mod_perl.c mod_perl.h perl_PL.h
  Log:
  fixed $r->finfo bug (properly set PL_laststatval)
  
  Revision  Changes    Path
  1.242     +2 -0      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /export/home/cvs/modperl/Changes,v
  retrieving revision 1.241
  retrieving revision 1.242
  diff -u -r1.241 -r1.242
  --- Changes	1999/01/18 03:02:25	1.241
  +++ Changes	1999/01/18 03:26:17	1.242
  @@ -8,6 +8,8 @@
   
   =item 1.17_01-dev
   
  +fixed $r->finfo bug (properly set PL_laststatval)
  +
   PerlRequire/PerlModule will not let the server start if there is an
   error (bug introduced in 1.16_xx), thanks to Brian Moseley for the spot
   
  
  
  
  1.143     +0 -2      modperl/ToDo
  
  Index: ToDo
  ===================================================================
  RCS file: /export/home/cvs/modperl/ToDo,v
  retrieving revision 1.142
  retrieving revision 1.143
  diff -u -r1.142 -r1.143
  --- ToDo	1999/01/18 03:02:25	1.142
  +++ ToDo	1999/01/18 03:26:17	1.143
  @@ -9,8 +9,6 @@
   
   - Apache::Server->keep_alive_timeout/timeout
   
  -- $r->finfo needs to set PL_laststatval
  -
   - %ENV not clearing?
   
   - loose @ISA 'DynaLoader' to avoid AutoLoader::AUTOLOAD
  
  
  
  1.71      +6 -0      modperl/src/modules/perl/Apache.xs
  
  Index: Apache.xs
  ===================================================================
  RCS file: /export/home/cvs/modperl/src/modules/perl/Apache.xs,v
  retrieving revision 1.70
  retrieving revision 1.71
  diff -u -r1.70 -r1.71
  --- Apache.xs	1999/01/18 02:46:35	1.70
  +++ Apache.xs	1999/01/18 03:26:18	1.71
  @@ -1716,6 +1716,12 @@
   
       CODE:
       statcache = r->finfo;
  +    if (r->finfo.st_mode) {
  +	laststatval = 0;
  +    }
  +    else {
  +	laststatval = -1;
  +    }
       if(GIMME_V == G_VOID) XSRETURN_UNDEF;
       RETVAL = newRV_noinc((SV*)gv_fetchpv("_", TRUE, SVt_PVIO));
   
  
  
  
  1.68      +1 -2      modperl/src/modules/perl/mod_perl.c
  
  Index: mod_perl.c
  ===================================================================
  RCS file: /export/home/cvs/modperl/src/modules/perl/mod_perl.c,v
  retrieving revision 1.67
  retrieving revision 1.68
  diff -u -r1.67 -r1.68
  --- mod_perl.c	1998/12/22 22:31:22	1.67
  +++ mod_perl.c	1999/01/18 03:26:19	1.68
  @@ -931,8 +931,7 @@
   
   static void per_request_cleanup(request_rec *r)
   {
  -    perl_request_config *cfg = 
  -	get_module_config(r->request_config, &perl_module);
  +    dPPREQ;
   
       if(!cfg) {
   	return;
  
  
  
  1.71      +3 -0      modperl/src/modules/perl/mod_perl.h
  
  Index: mod_perl.h
  ===================================================================
  RCS file: /export/home/cvs/modperl/src/modules/perl/mod_perl.h,v
  retrieving revision 1.70
  retrieving revision 1.71
  diff -u -r1.70 -r1.71
  --- mod_perl.h	1998/12/22 22:29:03	1.70
  +++ mod_perl.h	1999/01/18 03:26:19	1.71
  @@ -317,6 +317,9 @@
   int dstatus = DECLINED; \
   int status = dstatus
   
  +#define dPPREQ \
  +   perl_request_config *cfg = get_module_config(r->request_config, &perl_module)
  +
   #define dPPDIR \
      perl_dir_config *cld = get_module_config(r->per_dir_config, &perl_module)   
   
  
  
  
  1.7       +3 -0      modperl/src/modules/perl/perl_PL.h
  
  Index: perl_PL.h
  ===================================================================
  RCS file: /export/home/cvs/modperl/src/modules/perl/perl_PL.h,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- perl_PL.h	1998/11/24 19:10:57	1.6
  +++ perl_PL.h	1999/01/18 03:26:19	1.7
  @@ -16,6 +16,9 @@
   #ifndef statcache
   #define statcache PL_statcache
   #endif
  +#ifndef laststatval
  +#define laststatval PL_laststatval
  +#endif
   #ifndef rs
   #define rs PL_rs
   #endif
  
  
  

Mime
View raw message