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 PerlRunXS.xs
Date Thu, 01 Oct 1998 20:26:19 GMT
dougm       98/10/01 13:26:19

  Modified:    .        Changes ToDo
               lib/Apache PerlRun.pm Registry.pm
               src/modules/perl PerlRunXS.xs
  Log:
  Apache::Registry will return DECLINED if -d $r->filename so
  DirectoryIndex, etc., will work again
  
  Revision  Changes    Path
  1.169     +3 -0      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /export/home/cvs/modperl/Changes,v
  retrieving revision 1.168
  retrieving revision 1.169
  diff -u -r1.168 -r1.169
  --- Changes	1998/10/01 20:13:16	1.168
  +++ Changes	1998/10/01 20:26:15	1.169
  @@ -8,6 +8,9 @@
   
   =item 1.15_02-dev
   
  +Apache::Registry will return DECLINED if -d $r->filename so 
  +DirectoryIndex, etc., will work again
  +
   mod_perl now passes 'make test' on BSD/OS 3.1 again. [ Vivek Khera ]
   
   added INSTALL.simple.mod_ssl and SSL_BASE=... Makefile.PL option
  
  
  
  1.96      +2 -2      modperl/ToDo
  
  Index: ToDo
  ===================================================================
  RCS file: /export/home/cvs/modperl/ToDo,v
  retrieving revision 1.95
  retrieving revision 1.96
  diff -u -r1.95 -r1.96
  --- ToDo	1998/10/01 18:25:29	1.95
  +++ ToDo	1998/10/01 20:26:15	1.96
  @@ -5,8 +5,6 @@
   
   - forking under Apache::Registry, exit vs CORE::exit 
   
  -- DirectoryIndex breaks now that we accept DIR_MAGIC_TYPE
  -
   - PerlInitHandler broken?
   
   - files that have been created after the server's (child?) startup are
  @@ -271,6 +269,8 @@
   - replace Apache::Registry with Apache::RegistryXS
   
   - make Apache::RegistryLoader work with RegistryXS
  +
  +- avoid a copy in PerlRunXS (use SvPVX instead of safemalloc'd copy)
   
   - XS_IMPORT=1 on by default
   
  
  
  
  1.11      +1 -2      modperl/lib/Apache/PerlRun.pm
  
  Index: PerlRun.pm
  ===================================================================
  RCS file: /export/home/cvs/modperl/lib/Apache/PerlRun.pm,v
  retrieving revision 1.10
  retrieving revision 1.11
  diff -u -r1.10 -r1.11
  --- PerlRun.pm	1998/10/01 18:25:34	1.10
  +++ PerlRun.pm	1998/10/01 20:26:16	1.11
  @@ -45,8 +45,7 @@
   	    return FORBIDDEN;
    	}
   	if (-d _) {
  -	    $pr->log_reason("attempt to invoke directory as script", $filename);
  -	    return FORBIDDEN;
  +	    return DECLINED;
   	}
   	unless (-x _ or $Is_Win32) {
   	    $pr->log_reason("file permissions deny server execution",
  
  
  
  1.19      +1 -2      modperl/lib/Apache/Registry.pm
  
  Index: Registry.pm
  ===================================================================
  RCS file: /export/home/cvs/modperl/lib/Apache/Registry.pm,v
  retrieving revision 1.18
  retrieving revision 1.19
  diff -u -r1.18 -r1.19
  --- Registry.pm	1998/09/19 17:38:15	1.18
  +++ Registry.pm	1998/10/01 20:26:17	1.19
  @@ -43,8 +43,7 @@
   	    return FORBIDDEN;
    	}
   	if (-d _) {
  -	    $r->log_reason("attempt to invoke directory as script", $filename);
  -	    return FORBIDDEN;
  +	    return DECLINED; 
   	}
   	unless (-x _ or $Is_Win32) {
   	    $r->log_reason("file permissions deny server execution",
  
  
  
  1.6       +1 -2      modperl/src/modules/perl/PerlRunXS.xs
  
  Index: PerlRunXS.xs
  ===================================================================
  RCS file: /export/home/cvs/modperl/src/modules/perl/PerlRunXS.xs,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- PerlRunXS.xs	1998/08/31 20:04:32	1.5
  +++ PerlRunXS.xs	1998/10/01 20:26:18	1.6
  @@ -179,8 +179,7 @@
   			"script not found or unable to stat");
       }
       if (S_ISDIR(r->finfo.st_mode)) {
  -	log_scripterror(r, FORBIDDEN,
  -			"attempt to invoke directory as script");
  +	return DECLINED;
       }
       if (!can_exec(&r->finfo)) {
   	log_scripterror(r, FORBIDDEN,
  
  
  

Mime
View raw message