cholet      00/07/25 10:59:49

  Modified:    .        Changes
               src/modules/perl Apache.xs
  Log:
  return code from stat() call was being ignored
  
  Revision  Changes    Path
  1.502     +3 -0      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl/Changes,v
  retrieving revision 1.501
  retrieving revision 1.502
  diff -u -r1.501 -r1.502
  --- Changes	2000/07/24 13:22:50	1.501
  +++ Changes	2000/07/25 17:59:45	1.502
  @@ -10,6 +10,9 @@
   
   =item 1.24_01-dev
   
  +flush r->finfo cache if r->filename fails
  +[Roger Espel Llima <espel@iagora.net>]
  +
   fix per-dir merging of PerlSetupEnv [Eric Cholet <cholet@logilune.com>]
   
   INSTALL.raven update [Adam Qualset <adam@covalent.net>]
  
  
  
  1.99      +3 -1      modperl/src/modules/perl/Apache.xs
  
  Index: Apache.xs
  ===================================================================
  RCS file: /home/cvs/modperl/src/modules/perl/Apache.xs,v
  retrieving revision 1.98
  retrieving revision 1.99
  diff -u -r1.98 -r1.99
  --- Apache.xs	2000/06/05 18:18:49	1.98
  +++ Apache.xs	2000/07/25 17:59:48	1.99
  @@ -1870,7 +1870,9 @@
       get_set_PVp(r->filename,r->pool);
   #ifndef WIN32
       if(items > 1)
  -	stat(r->filename, &r->finfo);
  +	if ((laststatval = stat(r->filename, &r->finfo)) < 0) {
  +            r->finfo.st_mode = 0;
  +	}
   #endif
   
       OUTPUT: