perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From cho...@locus.apache.org
Subject cvs commit: modperl/src/modules/perl mod_perl.h perl_config.c
Date Mon, 24 Jul 2000 13:33:04 GMT
cholet      00/07/24 06:33:03

  Modified:    src/modules/perl mod_perl.h perl_config.c
  Log:
  revert my latest change, my editor suddenly decided to untabify everything, burying the actual change
  
  Revision  Changes    Path
  1.100     +34 -34    modperl/src/modules/perl/mod_perl.h
  
  Index: mod_perl.h
  ===================================================================
  RCS file: /home/cvs/modperl/src/modules/perl/mod_perl.h,v
  retrieving revision 1.99
  retrieving revision 1.100
  diff -u -r1.99 -r1.100
  --- mod_perl.h	2000/07/24 13:22:55	1.99
  +++ mod_perl.h	2000/07/24 13:33:00	1.100
  @@ -64,7 +64,7 @@
   #include <malloc.h>
   #include <win32.h>
   #include <win32iop.h>
  -#include <fcntl.h>      // For O_BINARY
  +#include <fcntl.h>		// For O_BINARY
   #include "EXTERN.h"
   #include "perl.h"
   #include <iperlsys.h>
  @@ -195,7 +195,7 @@
   #endif
   
   #ifndef AvFILLp
  -#define AvFILLp(av) ((XPVAV*)  SvANY(av))->xav_fill
  +#define AvFILLp(av)	((XPVAV*)  SvANY(av))->xav_fill
   #endif
   
   #ifdef eval_pv
  @@ -300,7 +300,7 @@
   #define av_copy_array(av) av_make(av_len(av)+1, AvARRAY(av))  
   
   #ifndef newRV_noinc
  -#define newRV_noinc(sv) ((Sv = newRV(sv)), --SvREFCNT(SvRV(Sv)), Sv)
  +#define newRV_noinc(sv)	((Sv = newRV(sv)), --SvREFCNT(SvRV(Sv)), Sv)
   #endif
   
   #ifndef SvTAINTED_on
  @@ -349,14 +349,14 @@
   
   #define mp_debug mod_perl_debug_flags
   
  -extern U32  mp_debug;
  +extern U32	mp_debug;
   
   #ifdef PERL_TRACE
  -#define MP_TRACE(a)   if (mp_debug)  a
  -#define MP_TRACE_d(a) if (mp_debug & 1)  a /* directives */
  -#define MP_TRACE_s(a) if (mp_debug & 2)  a /* perl sections */
  -#define MP_TRACE_h(a) if (mp_debug & 4)  a /* handlers */
  -#define MP_TRACE_g(a) if (mp_debug & 8)  a /* globals and allocation */
  +#define MP_TRACE(a)   if (mp_debug)	 a
  +#define MP_TRACE_d(a) if (mp_debug & 1)	 a /* directives */
  +#define MP_TRACE_s(a) if (mp_debug & 2)	 a /* perl sections */
  +#define MP_TRACE_h(a) if (mp_debug & 4)	 a /* handlers */
  +#define MP_TRACE_g(a) if (mp_debug & 8)	 a /* globals and allocation */
   #define MP_TRACE_c(a) if (mp_debug & 16) a /* directive handlers */
   #ifndef PERL_MARK_WHERE
   #define PERL_MARK_WHERE
  @@ -405,14 +405,14 @@
   #define MPf_Off -1
   #define MPf_None 0
   
  -#define MPf_INCPUSH 0x00000100 /* use lib split ":", $ENV{PERL5LIB} */
  -#define MPf_SENDHDR 0x00000200 /* is PerlSendHeader On? */
  -#define MPf_SENTHDR 0x00000400 /* has PerlSendHeader sent the headers? */
  -#define MPf_ENV     0x00000800 /* PerlSetupEnv */
  -#define MPf_HASENV  0x00001000 /* do we have any PerlSetEnv's? */
  -#define MPf_DSTDERR 0x00002000 /* redirect stderr to error_log */
  -#define MPf_CLEANUP 0x00004000 /* did we register our cleanup ? */
  -#define MPf_RCLEANUP    0x00008000 /* for $r->register_cleanup */
  +#define MPf_INCPUSH	0x00000100 /* use lib split ":", $ENV{PERL5LIB} */
  +#define MPf_SENDHDR	0x00000200 /* is PerlSendHeader On? */
  +#define MPf_SENTHDR	0x00000400 /* has PerlSendHeader sent the headers? */
  +#define MPf_ENV		0x00000800 /* PerlSetupEnv */
  +#define MPf_HASENV	0x00001000 /* do we have any PerlSetEnv's? */
  +#define MPf_DSTDERR	0x00002000 /* redirect stderr to error_log */
  +#define MPf_CLEANUP	0x00004000 /* did we register our cleanup ? */
  +#define MPf_RCLEANUP	0x00008000 /* for $r->register_cleanup */
   
   #define MP_FMERGE(new,add,base,f) \
   if((add->flags & f) || (base->flags & f)) \
  @@ -442,7 +442,7 @@
   #define MP_ENV_off(d)    (d->flags  &= ~MPf_ENV)
   #endif
   
  -#define MP_ENV(d)       (d->SetupEnv != MPf_Off)
  +#define MP_ENV(d)       (d->SetupEnv == MPf_On)
   #define MP_ENV_on(d)    (d->SetupEnv = MPf_On)
   #define MP_ENV_off(d)   (d->SetupEnv = MPf_Off)
   
  @@ -535,13 +535,13 @@
   
   #define HAS_CONTEXT MODULE_MAGIC_AT_LEAST(MMN_136,2)
   #if HAS_CONTEXT
  -#define CAN_SELF_BOOT_SECTIONS  (PERL_SECTIONS_SELF_BOOT)
  -#define SECTION_ALLOWED     OR_ALL
  -#define USABLE_CONTEXT      parms->context
  -#else
  -#define CAN_SELF_BOOT_SECTIONS  ((parms->path==NULL)&&PERL_SECTIONS_SELF_BOOT)
  -#define SECTION_ALLOWED     RSRC_CONF
  -#define USABLE_CONTEXT      parms->server->lookup_defaults
  +#define CAN_SELF_BOOT_SECTIONS	(PERL_SECTIONS_SELF_BOOT)
  +#define SECTION_ALLOWED		OR_ALL
  +#define USABLE_CONTEXT		parms->context
  +#else
  +#define CAN_SELF_BOOT_SECTIONS	((parms->path==NULL)&&PERL_SECTIONS_SELF_BOOT)
  +#define SECTION_ALLOWED		RSRC_CONF
  +#define USABLE_CONTEXT		parms->server->lookup_defaults
   #endif
   
   #define APACHE_SSL_12X (defined(APACHE_SSL) && (MODULE_MAGIC_NUMBER < MMN_130))
  @@ -598,7 +598,7 @@
                   "access to %s failed for %s, reason: %s", \
                   file, \
                   get_remote_host(r->connection, \
  -                r->per_dir_config, REMOTE_NAME), \
  +				r->per_dir_config, REMOTE_NAME), \
                   msg)
   
   #else
  @@ -642,9 +642,9 @@
   #undef create_mutex
   #undef acquire_mutex
   #undef release_mutex
  -#define create_mutex(name)  ((void *)mod_perl_dummy_mutex)
  -#define acquire_mutex(mutex_id) ((int)MULTI_OK)
  -#define release_mutex(mutex_id) ((int)MULTI_OK)
  +#define create_mutex(name)	((void *)mod_perl_dummy_mutex)
  +#define acquire_mutex(mutex_id)	((int)MULTI_OK)
  +#define release_mutex(mutex_id)	((int)MULTI_OK)
   #endif /* MULTITHREAD_H */
   
   #endif /* WIN32 */
  @@ -784,7 +784,7 @@
   
   #define PERL_CHILD_INIT_CMD_ENTRY \
   "PerlChildInitHandler", (crft) perl_cmd_child_init_handlers, \
  -    NULL,    \
  +    NULL,	 \
       RSRC_CONF, PERL_TAKE, "the Perl Child init handler routine name"  
   
   #define PERL_CHILD_INIT_CREATE(s) s->PerlChildInitHandler = PERL_CMD_INIT
  @@ -801,7 +801,7 @@
   
   #define PERL_CHILD_EXIT_CMD_ENTRY \
   "PerlChildExitHandler", (crft) perl_cmd_child_exit_handlers, \
  -    NULL,    \
  +    NULL,	 \
       RSRC_CONF, PERL_TAKE, "the Perl Child exit handler routine name"  
   
   #define PERL_CHILD_EXIT_CREATE(s) s->PerlChildExitHandler = PERL_CMD_INIT
  @@ -816,7 +816,7 @@
   
   #define PERL_RESTART_CMD_ENTRY \
   "PerlRestartHandler", (crft) perl_cmd_restart_handlers, \
  -    NULL,    \
  +    NULL,	 \
       RSRC_CONF, PERL_TAKE, "the Perl Restart handler routine name"  
   
   #define PERL_RESTART_CREATE(s) s->PerlRestartHandler = PERL_CMD_INIT
  @@ -856,7 +856,7 @@
   
   #define PERL_TRANS_CMD_ENTRY \
   "PerlTransHandler", (crft) perl_cmd_trans_handlers, \
  -    NULL,    \
  +    NULL,	 \
       RSRC_CONF, PERL_TAKE, "the Perl Translation handler routine name"  
   
   #define PERL_TRANS_CREATE(s) s->PerlTransHandler = PERL_CMD_INIT
  @@ -1250,7 +1250,7 @@
   CHAR_P perl_cmd_perl_TAKE1(cmd_parms *cmd, mod_perl_perl_dir_config *d, char *one);
   CHAR_P perl_cmd_perl_TAKE2(cmd_parms *cmd, mod_perl_perl_dir_config *d, char *one, char *two);
   CHAR_P perl_cmd_perl_TAKE123(cmd_parms *cmd, mod_perl_perl_dir_config *d,
  -                 char *one, char *two, char *three);
  +			     char *one, char *two, char *three);
   CHAR_P perl_cmd_perl_FLAG(cmd_parms *cmd, mod_perl_perl_dir_config *d, int flag);
   
   #define perl_cmd_perl_RAW_ARGS perl_cmd_perl_TAKE1
  
  
  
  1.99      +538 -538  modperl/src/modules/perl/perl_config.c
  
  Index: perl_config.c
  ===================================================================
  RCS file: /home/cvs/modperl/src/modules/perl/perl_config.c,v
  retrieving revision 1.98
  retrieving revision 1.99
  diff -u -r1.98 -r1.99
  --- perl_config.c	2000/07/24 13:22:55	1.98
  +++ perl_config.c	2000/07/24 13:33:01	1.99
  @@ -90,16 +90,16 @@
       char *tmp = SvPV(sv,len);
   
       if(!SvTRUE(sv)) 
  -    return;
  +	return;
   
       Move(tmp, buf, bufsiz, char);
   
       if(len < bufsiz) {
  -    sv_setpv(sv, "");
  +	sv_setpv(sv, "");
       }
       else {
  -    tmp += bufsiz;
  -    sv_setpv(sv, tmp);
  +	tmp += bufsiz;
  +	sv_setpv(sv, tmp);
       }
   }
   
  @@ -111,14 +111,14 @@
       register int retval = *tmp;
   
       if(!SvTRUE(sv)) 
  -    return EOF;
  +	return EOF;
   
       if(len <= 1) {
  -    sv_setpv(sv, "");
  +	sv_setpv(sv, "");
       }
       else {
  -    ++tmp;
  -    sv_setpv(sv, tmp);
  +	++tmp;
  +	sv_setpv(sv, tmp);
       }
   
       return retval;
  @@ -127,8 +127,8 @@
   void perl_eat_config_string(cmd_parms *cmd, void *config, SV *sv) {
       CHAR_P errmsg; 
       configfile_t *perl_cfg = 
  -    pcfg_open_custom(cmd->pool, "mod_perl", (void*)sv,
  -             perl_config_getch, NULL, NULL);
  +	pcfg_open_custom(cmd->pool, "mod_perl", (void*)sv,
  +			 perl_config_getch, NULL, NULL);
   
       configfile_t *old_cfg = cmd->config_file;
       cmd->config_file = perl_cfg;
  @@ -136,7 +136,7 @@
       cmd->config_file = old_cfg;
   
       if(errmsg)
  -    fprintf(stderr, "mod_perl: %s\n", errmsg);
  +	fprintf(stderr, "mod_perl: %s\n", errmsg);
   }
   
   #define STRING_MEAL(s) ( (*s == 'P') && strEQ(s,"PerlConfig") )
  @@ -156,9 +156,9 @@
         (core_dir_config *)get_module_config(r->per_dir_config, &core_module); 
   
       if(val) {
  -    conf->auth_name = pstrdup(r->pool, val);
  -    set_module_config(r->per_dir_config, &core_module, (void*)conf); 
  -    MP_TRACE_g(fprintf(stderr, "mod_perl: setting auth_name to %s\n", conf->auth_name));
  +	conf->auth_name = pstrdup(r->pool, val);
  +	set_module_config(r->per_dir_config, &core_module, (void*)conf); 
  +	MP_TRACE_g(fprintf(stderr, "mod_perl: setting auth_name to %s\n", conf->auth_name));
       }
   
       return conf->auth_name;
  @@ -170,17 +170,17 @@
   void mod_perl_dir_env(request_rec *r, perl_dir_config *cld)
   {
       if(MP_HASENV(cld)) {
  -    array_header *arr = table_elts(cld->env);
  -    table_entry *elts = (table_entry *)arr->elts;
  +	array_header *arr = table_elts(cld->env);
  +	table_entry *elts = (table_entry *)arr->elts;
   
  -    int i;
  -    for (i = 0; i < arr->nelts; ++i) {
  -        MP_TRACE_d(fprintf(stderr, "mod_perl_dir_env: %s=`%s'",
  -                 elts[i].key, elts[i].val));
  -        mp_setenv(elts[i].key, elts[i].val);
  -        ap_table_setn(r->subprocess_env, elts[i].key, elts[i].val);
  -    }
  -    MP_HASENV_off(cld); /* just doit once per-request */
  +	int i;
  +	for (i = 0; i < arr->nelts; ++i) {
  +	    MP_TRACE_d(fprintf(stderr, "mod_perl_dir_env: %s=`%s'",
  +			     elts[i].key, elts[i].val));
  +	    mp_setenv(elts[i].key, elts[i].val);
  +	    ap_table_setn(r->subprocess_env, elts[i].key, elts[i].val);
  +	}
  +	MP_HASENV_off(cld); /* just doit once per-request */
       }
   }
   
  @@ -193,17 +193,17 @@
   
       keys = (char **)cls->PerlPassEnv->elts;
       for (i = 0; i < cls->PerlPassEnv->nelts; ++i) {
  -    key = keys[i];
  +	key = keys[i];
   
           if(!(val = getenv(key)) && (ind(key, ':') > 0)) {
  -        CHAR_P tmp = pstrdup(p, key);
  -        key = getword(p, &tmp, ':');
  -        val = (char *)tmp;
  -    }
  +	    CHAR_P tmp = pstrdup(p, key);
  +	    key = getword(p, &tmp, ':');
  +	    val = (char *)tmp;
  +	}
   
           if(val != NULL) {
  -        MP_TRACE_d(fprintf(stderr, "PerlPassEnv: `%s'=`%s'\n", key, val));
  -        mp_SetEnv(key,pstrdup(p,val));
  +	    MP_TRACE_d(fprintf(stderr, "PerlPassEnv: `%s'=`%s'\n", key, val));
  +	    mp_SetEnv(key,pstrdup(p,val));
           }
       }
   }    
  @@ -221,16 +221,16 @@
   
       /* XXX: what triggers such a condition ?*/
       if(vars && (vars->nelts > 100000)) {
  -    fprintf(stderr, "[warning] PerlSetVar->nelts = %d\n", vars->nelts);
  +	fprintf(stderr, "[warning] PerlSetVar->nelts = %d\n", vars->nelts);
       }
       mrg->vars = overlay_tables(p, add->vars, base->vars);
       mrg->env = overlay_tables(p, add->env, base->env);
   
       mrg->SendHeader = (add->SendHeader != MPf_None) ?
  -    add->SendHeader : base->SendHeader;
  +	add->SendHeader : base->SendHeader;
   
       mrg->SetupEnv = (add->SetupEnv != MPf_None) ?
  -    add->SetupEnv : base->SetupEnv;
  +	add->SetupEnv : base->SetupEnv;
   
       /* merge flags */
       MP_FMERGE(mrg,add,base,MPf_INCPUSH);
  @@ -291,14 +291,14 @@
   void *perl_create_dir_config (pool *p, char *dirname)
   {
       perl_dir_config *cld =
  -    (perl_dir_config *)palloc(p, sizeof (perl_dir_config));
  +	(perl_dir_config *)palloc(p, sizeof (perl_dir_config));
   
       cld->location = pstrdup(p, dirname);
       cld->vars = make_table(p, 5); 
       cld->env  = make_table(p, 5); 
       cld->flags = MPf_ENV;
       cld->SendHeader = MPf_None;
  -    cld->SetupEnv = MPf_None;
  +    cld->SetupEnv = MPf_On;
       cld->PerlHandler = PERL_CMD_INIT;
       PERL_DISPATCH_CREATE(cld);
       PERL_AUTHEN_CREATE(cld);
  @@ -367,7 +367,7 @@
   void *perl_create_server_config (pool *p, server_rec *s)
   {
       perl_server_config *cls =
  -    (perl_server_config *)palloc(p, sizeof (perl_server_config));
  +	(perl_server_config *)palloc(p, sizeof (perl_server_config));
   
       cls->PerlPassEnv = make_array(p, 1, sizeof(char *));
       cls->PerlModule  = make_array(p, 1, sizeof(char *));
  @@ -393,7 +393,7 @@
   {
       int i;
       perl_request_config *cfg = 
  -    (perl_request_config *)pcalloc(p, sizeof(perl_request_config));
  +	(perl_request_config *)pcalloc(p, sizeof(perl_request_config));
       cfg->pnotes = Nullhv;
       cfg->setup_env = 0;
   
  @@ -401,14 +401,14 @@
       cfg->sigsave = make_array(p, 1, sizeof(perl_request_sigsave *));
   
       for (i=0; sigsave[i]; i++) {
  -    perl_request_sigsave *sig = 
  -        (perl_request_sigsave *)pcalloc(p, sizeof(perl_request_sigsave));
  -    sig->signo = whichsig(sigsave[i]);
  -    sig->h = rsignal_state(sig->signo);
  -    MP_TRACE_g(fprintf(stderr, 
  -               "mod_perl: saving SIG%s (%d) handler 0x%lx\n",
  -               sigsave[i], (int)sig->signo, (unsigned long)sig->h));
  -    *(perl_request_sigsave **)push_array(cfg->sigsave) = sig;
  +	perl_request_sigsave *sig = 
  +	    (perl_request_sigsave *)pcalloc(p, sizeof(perl_request_sigsave));
  +	sig->signo = whichsig(sigsave[i]);
  +	sig->h = rsignal_state(sig->signo);
  +	MP_TRACE_g(fprintf(stderr, 
  +			   "mod_perl: saving SIG%s (%d) handler 0x%lx\n",
  +			   sigsave[i], (int)sig->signo, (unsigned long)sig->h));
  +	*(perl_request_sigsave **)push_array(cfg->sigsave) = sig;
       }
   
   #endif
  @@ -428,10 +428,10 @@
       if(!PERL_RUNNING()) return;
   
       if(!perl_module_is_loaded(*name)) { 
  -    MP_TRACE_d(fprintf(stderr, 
  -               "mod_perl: attempting to pre-load module `%s'\n", 
  -               *name));
  -    perl_require_module(*name,NULL);
  +	MP_TRACE_d(fprintf(stderr, 
  +			   "mod_perl: attempting to pre-load module `%s'\n", 
  +			   *name));
  +	perl_require_module(*name,NULL);
       }
   }
   #endif
  @@ -445,8 +445,8 @@
       sva = newSVpv(arg,0); 
       if(!*cmd) { 
           *cmd = newAV(); 
  -    register_cleanup(p, (void*)*cmd, mod_perl_cleanup_av, mod_perl_noop);
  -    MP_TRACE_d(fprintf(stderr, "init `%s' stack\n", hook)); 
  +	register_cleanup(p, (void*)*cmd, mod_perl_cleanup_av, mod_perl_noop);
  +	MP_TRACE_d(fprintf(stderr, "init `%s' stack\n", hook)); 
       } 
       MP_TRACE_d(fprintf(stderr, "perl_cmd_push_handlers: @%s, '%s'\n", hook, arg)); 
       mod_perl_push_handlers(&sv_yes, hook, sva, *cmd); 
  @@ -562,11 +562,11 @@
   {
       dPSRV(parms->server);
       if(parms->path) {
  -    PERL_CMD_PUSH_HANDLERS("PerlInitHandler", 
  -                   ((perl_dir_config *)rec)->PerlInitHandler);
  +	PERL_CMD_PUSH_HANDLERS("PerlInitHandler", 
  +			       ((perl_dir_config *)rec)->PerlInitHandler);
       }
       else {
  -    PERL_CMD_PUSH_HANDLERS("PerlInitHandler", cls->PerlInitHandler);
  +	PERL_CMD_PUSH_HANDLERS("PerlInitHandler", cls->PerlInitHandler);
       }
   }
   
  @@ -584,23 +584,23 @@
       MP_TRACE_d(fprintf(stderr, "PerlModule: arg='%s'\n", arg));
   
       if(PERL_RUNNING()) {
  -    if (PERL_STARTUP_IS_DONE) {
  -        if (perl_require_module(arg, NULL) != OK) {
  -        dTHR;
  -        STRLEN n_a;
  -        dTHRCTX;
  -        return SvPV(ERRSV,n_a);
  -        }
  -    }
  -    else {
  -        return NULL;
  +	if (PERL_STARTUP_IS_DONE) {
  +	    if (perl_require_module(arg, NULL) != OK) {
  +		dTHR;
  +		STRLEN n_a;
  +		dTHRCTX;
  +		return SvPV(ERRSV,n_a);
  +	    }
  +	}
  +	else {
  +	    return NULL;
  +	}
       }
  -    }
       *(char **)push_array(cls->PerlModule) = pstrdup(parms->pool, arg);
   
   #ifdef PERL_SECTIONS
       if(CAN_SELF_BOOT_SECTIONS)
  -    perl_section_self_boot(parms, dummy, arg);
  +	perl_section_self_boot(parms, dummy, arg);
   #endif
   
       return NULL;
  @@ -614,24 +614,24 @@
       MP_TRACE_d(fprintf(stderr, "PerlRequire: arg=`%s'\n", arg));
   
       if(PERL_RUNNING()) {
  -    if (PERL_STARTUP_IS_DONE) {
  -        if (perl_load_startup_script(parms->server, parms->pool, arg, TRUE) != OK) {
  -        dTHR;
  -        STRLEN n_a;
  -        dTHRCTX;
  -        return SvPV(ERRSV,n_a);
  -        }
  -        else {
  -        return NULL;
  -        }
  -    }
  +	if (PERL_STARTUP_IS_DONE) {
  +	    if (perl_load_startup_script(parms->server, parms->pool, arg, TRUE) != OK) {
  +		dTHR;
  +		STRLEN n_a;
  +		dTHRCTX;
  +		return SvPV(ERRSV,n_a);
  +	    }
  +	    else {
  +		return NULL;
  +	    }
  +	}
       }
   
       *(char **)push_array(cls->PerlRequire) = pstrdup(parms->pool, arg);
   
   #ifdef PERL_SECTIONS
       if(CAN_SELF_BOOT_SECTIONS)
  -    perl_section_self_boot(parms, dummy, arg);
  +	perl_section_self_boot(parms, dummy, arg);
   #endif
   
       return NULL;
  @@ -658,14 +658,14 @@
   
       cls->PerlTaintCheck = arg;
       if(PERL_RUNNING()) {
  -    gv = GvSV_init("Apache::__T");
  -    if(arg) {
  -        SvREADONLY_off(GvSV(gv));
  -        GvSV_setiv(gv, TRUE);
  -        SvREADONLY_on(GvSV(gv));
  -        tainting = TRUE;
  +	gv = GvSV_init("Apache::__T");
  +	if(arg) {
  +	    SvREADONLY_off(GvSV(gv));
  +	    GvSV_setiv(gv, TRUE);
  +	    SvREADONLY_on(GvSV(gv));
  +	    tainting = TRUE;
  +	}
       }
  -    }
   }
   
   CHAR_P perl_cmd_tainting (cmd_parms *parms, void *dummy, int arg)
  @@ -696,9 +696,9 @@
   
   CHAR_P perl_cmd_sendheader (cmd_parms *cmd,  perl_dir_config *rec, int arg) {
       if(arg)
  -    MP_SENDHDR_on(rec);
  +	MP_SENDHDR_on(rec);
       else
  -    MP_SENDHDR_off(rec);
  +	MP_SENDHDR_off(rec);
       MP_SENTHDR_on(rec);
       return NULL;
   }
  @@ -707,7 +707,7 @@
   {
       dPSRV(parms->server);
       if(PERL_RUNNING()) {
  -    mp_PassEnv(arg);
  +	mp_PassEnv(arg);
       }
   
       *(char **)push_array(cls->PerlPassEnv) = pstrdup(parms->pool, arg);
  @@ -719,7 +719,7 @@
     
   CHAR_P perl_cmd_env (cmd_parms *cmd, perl_dir_config *rec, int arg) {
       if(arg) MP_ENV_on(rec);
  -    else       MP_ENV_off(rec);
  +    else	   MP_ENV_off(rec);
       MP_TRACE_d(fprintf(stderr, "perl_cmd_env: set to `%s'\n", arg ? "On" : "Off"));
       return NULL;
   }
  @@ -754,12 +754,12 @@
       MP_HASENV_on(rec);
       MP_TRACE_d(fprintf(stderr, "perl_cmd_setenv: '%s' = '%s'\n", key, val));
       if(cmd->path == NULL) {
  -    dPSRV(cmd->server); 
  -    if(PERL_RUNNING()) { 
  -        mp_SetEnv(key,val);
  -    } 
  -    *(char **)push_array(cls->PerlPassEnv) = 
  -        pstrcat(cmd->pool, key, ":", val, NULL); 
  +	dPSRV(cmd->server); 
  +	if(PERL_RUNNING()) { 
  +	    mp_SetEnv(key,val);
  +	} 
  +	*(char **)push_array(cls->PerlPassEnv) = 
  +	    pstrcat(cmd->pool, key, ":", val, NULL); 
       }
       return NULL;
   }
  @@ -769,7 +769,7 @@
       char l[MAX_STRING_LEN];
   
       while (!(cfg_getline (l, MAX_STRING_LEN, cmd_infile))) {
  -    /* soak up the of the file */
  +	/* soak up the of the file */
       }
   
       return NULL;   
  @@ -784,21 +784,21 @@
       char l[MAX_STRING_LEN];
   
       if(arg && strlen(arg) && !APACHE_POD_FORMAT(arg)) 
  -    return "Unknown =end format";
  +	return "Unknown =end format";
   
       while (!(cfg_getline (l, MAX_STRING_LEN, cmd_infile))) {
  -    int chop = 4;
  -    if(strnEQ(l, "=cut", 4))
  -        break;
  -    if(strnEQ(l, "=for", chop) || 
  -       ((chop = 6) && strnEQ(l, "=begin", chop)))
  -    {
  -        char *tmp = l;
  -        tmp += chop; while(isspace(*tmp)) tmp++;
  -        if(APACHE_POD_FORMAT(tmp))
  -        break;
  +	int chop = 4;
  +	if(strnEQ(l, "=cut", 4))
  +	    break;
  +	if(strnEQ(l, "=for", chop) || 
  +	   ((chop = 6) && strnEQ(l, "=begin", chop)))
  +	{
  +	    char *tmp = l;
  +	    tmp += chop; while(isspace(*tmp)) tmp++;
  +	    if(APACHE_POD_FORMAT(tmp))
  +		break;
  +	}
       }
  -    }
   
       return NULL;   
   }
  @@ -811,15 +811,15 @@
       char line[MAX_STRING_LEN];
   
       if(arg && strlen(arg) && !(APACHE_POD_FORMAT(arg) || strstr(arg, "pod"))) 
  -    return "Unknown =back format";
  +	return "Unknown =back format";
   
       while (!(cfg_getline (line, sizeof(line), cmd_infile))) {
  -    if(strnEQ(line, "=cut", 4))
  -        break;
  -    if(strnEQ(line, "=over", 5)) {
  -        if(APACHE_POD_FORMAT(line)) 
  -        break;
  -    }
  +	if(strnEQ(line, "=cut", 4))
  +	    break;
  +	if(strnEQ(line, "=over", 5)) {
  +	    if(APACHE_POD_FORMAT(line)) 
  +		break;
  +	}
       }
   
       return NULL;   
  @@ -836,9 +836,9 @@
   {
       AV *av = (AV*)data;
       if(SvREFCNT((SV*)av)) {
  -    MP_TRACE_g(fprintf(stderr, "cleanup_av: SvREFCNT(0x%lx)==%d\n", 
  -               (unsigned long)av, (int)SvREFCNT((SV*)av)));
  -    SvREFCNT_dec((SV*)av);
  +	MP_TRACE_g(fprintf(stderr, "cleanup_av: SvREFCNT(0x%lx)==%d\n", 
  +			   (unsigned long)av, (int)SvREFCNT((SV*)av)));
  +	SvREFCNT_dec((SV*)av);
       }
   }
   
  @@ -866,7 +866,7 @@
       SV *sv = sv_newmortal();
       sv_setref_pv(sv, "Apache::CmdParms", (void*)parms);
       MP_TRACE_g(fprintf(stderr, "blessing cmd_parms=(0x%lx)\n",
  -             (unsigned long)parms));
  +		     (unsigned long)parms));
       return sv;
   }
   
  @@ -875,9 +875,9 @@
       HV *xs_config = perl_get_hv("Apache::XS_ModuleConfig", TRUE);
       SV **mod_ptr = hv_fetch(xs_config, name, len, FALSE);
       if(mod_ptr && *mod_ptr)
  -    return (module *)SvIV((SV*)SvRV(*mod_ptr));
  +	return (module *)SvIV((SV*)SvRV(*mod_ptr));
       else
  -    return NULL;
  +	return NULL;
   }
   
   static SV *
  @@ -886,39 +886,39 @@
       GV *gv;
   
       if(*sv && SvTRUE(*sv) && SvROK(*sv) && sv_isobject(*sv))
  -    return *sv;
  +	return *sv;
   
       /* return $class->type if $class->can(type) */
       if((gv = gv_fetchmethod_autoload(pclass, type, FALSE)) && isGV(gv)) {
  -    int count;
  -    dSP;
  +	int count;
  +	dSP;
   
  -    ENTER;SAVETMPS;
  -    PUSHMARK(sp);
  -    XPUSHs(sv_2mortal(newSVpv(HvNAME(pclass),0)));
  -    if(parms)
  -        XPUSHs(perl_bless_cmd_parms(parms));
  -    PUTBACK;
  -    count = perl_call_sv((SV*)GvCV(gv), G_EVAL | G_SCALAR);
  -    SPAGAIN;
  -    if((perl_eval_ok(parms ? parms->server : NULL) == OK) && (count == 1)) {
  -        *sv = POPs;
  -        ++SvREFCNT(*sv);
  -    }
  -    PUTBACK;
  -    FREETMPS;LEAVE;
  +	ENTER;SAVETMPS;
  +	PUSHMARK(sp);
  +	XPUSHs(sv_2mortal(newSVpv(HvNAME(pclass),0)));
  +	if(parms)
  +	    XPUSHs(perl_bless_cmd_parms(parms));
  +	PUTBACK;
  +	count = perl_call_sv((SV*)GvCV(gv), G_EVAL | G_SCALAR);
  +	SPAGAIN;
  +	if((perl_eval_ok(parms ? parms->server : NULL) == OK) && (count == 1)) {
  +	    *sv = POPs;
  +	    ++SvREFCNT(*sv);
  +	}
  +	PUTBACK;
  +	FREETMPS;LEAVE;
   
  -    return *sv;
  +	return *sv;
       }
       else {
  -    /* return bless {}, $class */
  -    if(!SvTRUE(*sv)) {
  -        *sv = newRV_noinc((SV*)newHV());
  -        return sv_bless(*sv, pclass);
  +	/* return bless {}, $class */
  +	if(!SvTRUE(*sv)) {
  +	    *sv = newRV_noinc((SV*)newHV());
  +	    return sv_bless(*sv, pclass);
  +	}
  +	else
  +	    return *sv;
       }
  -    else
  -        return *sv;
  -    }
   }
   
   static SV *perl_perl_create_dir_config(SV **sv, HV *pclass, cmd_parms *parms)
  @@ -935,47 +935,47 @@
   {
       GV *gv;
       mod_perl_perl_dir_config *mrg = NULL,
  -    *basevp = (mod_perl_perl_dir_config *)basev,
  -    *addvp  = (mod_perl_perl_dir_config *)addv;
  +	*basevp = (mod_perl_perl_dir_config *)basev,
  +	*addvp  = (mod_perl_perl_dir_config *)addv;
   
       SV *sv, 
  -    *basesv = basevp ? basevp->obj : Nullsv,
  -    *addsv  = addvp  ? addvp->obj  : Nullsv;
  +	*basesv = basevp ? basevp->obj : Nullsv,
  +	*addsv  = addvp  ? addvp->obj  : Nullsv;
   
       if(!basesv) basesv = addsv;
       if(!sv_isobject(basesv))
  -    return basesv;
  +	return basesv;
   
       MP_TRACE_c(fprintf(stderr, "looking for method %s in package `%s'\n", 
  -               meth, SvCLASS(basesv)));
  +		       meth, SvCLASS(basesv)));
   
       if((gv = gv_fetchmethod_autoload(SvSTASH(SvRV(basesv)), meth, FALSE)) && isGV(gv)) {
  -    int count;
  -    dSP;
  -    mrg = (mod_perl_perl_dir_config *)
  -        palloc(p, sizeof(mod_perl_perl_dir_config));
  -
  -    MP_TRACE_c(fprintf(stderr, "calling %s->%s\n", 
  -               SvCLASS(basesv), meth));
  -
  -    ENTER;SAVETMPS;
  -    PUSHMARK(sp);
  -    XPUSHs(basesv);XPUSHs(addsv);
  -    PUTBACK;
  -    count = perl_call_sv((SV*)GvCV(gv), G_EVAL | G_SCALAR);
  -    SPAGAIN;
  -    if((perl_eval_ok(NULL) == OK) && (count == 1)) {
  -        sv = POPs;
  -        ++SvREFCNT(sv);
  -        mrg->obj = sv;
  -        mrg->pclass = SvCLASS(sv);
  +	int count;
  +	dSP;
  +	mrg = (mod_perl_perl_dir_config *)
  +	    palloc(p, sizeof(mod_perl_perl_dir_config));
  +
  +	MP_TRACE_c(fprintf(stderr, "calling %s->%s\n", 
  +			   SvCLASS(basesv), meth));
  +
  +	ENTER;SAVETMPS;
  +	PUSHMARK(sp);
  +	XPUSHs(basesv);XPUSHs(addsv);
  +	PUTBACK;
  +	count = perl_call_sv((SV*)GvCV(gv), G_EVAL | G_SCALAR);
  +	SPAGAIN;
  +	if((perl_eval_ok(NULL) == OK) && (count == 1)) {
  +	    sv = POPs;
  +	    ++SvREFCNT(sv);
  +	    mrg->obj = sv;
  +	    mrg->pclass = SvCLASS(sv);
  +	}
  +	PUTBACK;
  +	FREETMPS;LEAVE;
       }
  -    PUTBACK;
  -    FREETMPS;LEAVE;
  -    }
       else {
  -    mrg->obj = newSVsv(basesv);
  -    mrg->pclass = basevp->pclass;
  +	mrg->obj = newSVsv(basesv);
  +	mrg->pclass = basevp->pclass;
       }
       return (void *)mrg;
   }
  @@ -995,15 +995,15 @@
       mod_perl_perl_dir_config *cld = (mod_perl_perl_dir_config *)data;
   
       if(cld->obj) {
  -    MP_TRACE_c(fprintf(stderr, 
  -               "cmd_cleanup: SvREFCNT($%s::$obj) == %d\n",
  -               cld->pclass, (int)SvREFCNT(cld->obj)));
  -    SvREFCNT_dec(cld->obj);
  +	MP_TRACE_c(fprintf(stderr, 
  +			   "cmd_cleanup: SvREFCNT($%s::$obj) == %d\n",
  +			   cld->pclass, (int)SvREFCNT(cld->obj)));
  +	SvREFCNT_dec(cld->obj);
       }
   }
   
   CHAR_P perl_cmd_perl_TAKE123(cmd_parms *cmd, mod_perl_perl_dir_config *data,
  -                  char *one, char *two, char *three)
  +				  char *one, char *two, char *three)
   {
       dSP;
       mod_perl_cmd_info *info = (mod_perl_cmd_info *)cmd->info;
  @@ -1018,39 +1018,39 @@
   
       if(xsmod && 
          (sdata = (mod_perl_perl_dir_config *)get_module_config(cmd->server->module_config, xsmod))) {
  -    (void)perl_perl_create_srv_config(&sdata->obj, CvSTASH(cv), cmd);
  -    set_module_config(cmd->server->module_config, xsmod, sdata);
  +	(void)perl_perl_create_srv_config(&sdata->obj, CvSTASH(cv), cmd);
  +	set_module_config(cmd->server->module_config, xsmod, sdata);
       }
   
       ENTER;SAVETMPS;
       PUSHMARK(sp);
       if(!has_empty_proto) {
  -    SV *cmd_obj = perl_bless_cmd_parms(cmd);
  -    XPUSHs(obj);
  -    XPUSHs(cmd_obj);
  -    if(cmd->cmd->args_how != NO_ARGS) {
  -        PUSHif(one);PUSHif(two);PUSHif(three);
  -    }
  -    if(SvPOK(cv) && (*(SvEND((SV*)cv)-1) == '*')) {
  -        SV *gp = mod_perl_gensym("Apache::CmdParms");
  -        sv_magic((SV*)SvRV(gp), cmd_obj, 'q', Nullch, 0); 
  -        XPUSHs(gp);
  -    }
  +	SV *cmd_obj = perl_bless_cmd_parms(cmd);
  +	XPUSHs(obj);
  +	XPUSHs(cmd_obj);
  +	if(cmd->cmd->args_how != NO_ARGS) {
  +	    PUSHif(one);PUSHif(two);PUSHif(three);
  +	}
  +	if(SvPOK(cv) && (*(SvEND((SV*)cv)-1) == '*')) {
  +	    SV *gp = mod_perl_gensym("Apache::CmdParms");
  +	    sv_magic((SV*)SvRV(gp), cmd_obj, 'q', Nullch, 0); 
  +	    XPUSHs(gp);
  +	}
       }
       PUTBACK;
       count = perl_call_sv((SV*)cv, G_EVAL | G_SCALAR);
       SPAGAIN;
       if(count == 1) {
  -    if(strEQ(POPp, DECLINE_CMD))
  -        retval = DECLINE_CMD;
  -    PUTBACK;
  +	if(strEQ(POPp, DECLINE_CMD))
  +	    retval = DECLINE_CMD;
  +	PUTBACK;
       }
       FREETMPS;LEAVE;
   
       {
  -    dTHRCTX;
  -    if(SvTRUE(ERRSV))
  -        retval = SvPVX(ERRSV);
  +	dTHRCTX;
  +	if(SvTRUE(ERRSV))
  +	    retval = SvPVX(ERRSV);
       }
   
       return retval;
  @@ -1059,7 +1059,7 @@
   
   #ifdef PERL_SECTIONS
   #if HAS_CONTEXT
  -#define perl_set_config_vectors ap_set_config_vectors
  +#define perl_set_config_vectors	ap_set_config_vectors
   #else
   void *perl_set_config_vectors(cmd_parms *parms, void *config, module *mod)
   {
  @@ -1085,17 +1085,17 @@
       char l[MAX_STRING_LEN];
   
       if(PERL_RUNNING()) {
  -    sv_catpvf(sv, "package %s;", PERL_SECTIONS_PACKAGE);
  -    sv_catpvf(sv, "\n\n#line %d %s\n", cmd_linenum+1, cmd_filename);
  +	sv_catpvf(sv, "package %s;", PERL_SECTIONS_PACKAGE);
  +	sv_catpvf(sv, "\n\n#line %d %s\n", cmd_linenum+1, cmd_filename);
       }
   
       while (!(cfg_getline (l, MAX_STRING_LEN, cmd_infile))) {
  -    if(strncasecmp(l, "</Perl>", 7) == 0)
  -        break;
  -    if(PERL_RUNNING()) {
  -        sv_catpv(sv, l);
  -        sv_catpvn(sv, "\n", 1);
  -    }
  +	if(strncasecmp(l, "</Perl>", 7) == 0)
  +	    break;
  +	if(PERL_RUNNING()) {
  +	    sv_catpv(sv, l);
  +	    sv_catpvn(sv, "\n", 1);
  +	}
       }
   
       return NULL;
  @@ -1111,14 +1111,14 @@
       while ((val = hv_iternextsv(hv, (char **) &key, &klen))) { \
           HV *tab = Nullhv; \
           AV *entries = Nullav; \
  -    if(SvMAGICAL(val)) mg_get(val); \
  -    if(SvROK(val) && (SvTYPE(SvRV(val)) == SVt_PVHV)) \
  -        tab = (HV *)SvRV(val); \
  -    else if(SvROK(val) && (SvTYPE(SvRV(val)) == SVt_PVAV)) \
  -        entries = (AV *)SvRV(val); \
  -    else \
  -        croak("value of `%s' is not a HASH or ARRAY reference!", key); \
  -    if(entries || tab) { \
  +	if(SvMAGICAL(val)) mg_get(val); \
  +	if(SvROK(val) && (SvTYPE(SvRV(val)) == SVt_PVHV)) \
  +	    tab = (HV *)SvRV(val); \
  +	else if(SvROK(val) && (SvTYPE(SvRV(val)) == SVt_PVAV)) \
  +	    entries = (AV *)SvRV(val); \
  +	else \
  +	    croak("value of `%s' is not a HASH or ARRAY reference!", key); \
  +	if(entries || tab) { \
   
   #define dSECiter_stop \
           } \
  @@ -1131,7 +1131,7 @@
           SV *rv = *av_fetch(entries, i, FALSE); \
           HV *nhv; \
           if(!SvROK(rv) || (SvTYPE(SvRV(rv)) != SVt_PVHV)) \
  -        croak("not a HASH reference!"); \
  +   	    croak("not a HASH reference!"); \
           nhv = newHV(); \
           hv_store(nhv, (char*)key, klen, SvREFCNT_inc(rv), FALSE); \
           tab = nhv; \
  @@ -1151,33 +1151,33 @@
       SV *tmpval;
       (void)hv_iterinit(hv); 
       while ((tmpval = hv_iternextsv(hv, &tmpkey, &tmpklen))) { 
  -    char line[MAX_STRING_LEN]; 
  -    char *value = NULL;
  -    if (SvMAGICAL(tmpval)) mg_get(tmpval); /* tied hash FETCH */
  -    if(SvROK(tmpval)) {
  -        if(SvTYPE(SvRV(tmpval)) == SVt_PVAV) {
  -        perl_handle_command_av((AV*)SvRV(tmpval), 
  -                       0, tmpkey, cmd, cfg);
  -        continue;
  -        }
  -        else if(SvTYPE(SvRV(tmpval)) == SVt_PVHV) {
  -        perl_handle_command_hv((HV*)SvRV(tmpval), 
  -                       tmpkey, cmd, cfg); 
  -        continue;
  -        }
  +	char line[MAX_STRING_LEN]; 
  +	char *value = NULL;
  +	if (SvMAGICAL(tmpval)) mg_get(tmpval); /* tied hash FETCH */
  +	if(SvROK(tmpval)) {
  +	    if(SvTYPE(SvRV(tmpval)) == SVt_PVAV) {
  +		perl_handle_command_av((AV*)SvRV(tmpval), 
  +				       0, tmpkey, cmd, cfg);
  +		continue;
  +	    }
  +	    else if(SvTYPE(SvRV(tmpval)) == SVt_PVHV) {
  +		perl_handle_command_hv((HV*)SvRV(tmpval), 
  +				       tmpkey, cmd, cfg); 
  +		continue;
  +	    }
  +	}
  +	else
  +	    value = SvPV(tmpval,na); 
  +
  +	sprintf(line, "%s %s", tmpkey, value);
  +	errmsg = handle_command(cmd, cfg, line); 
  +	MP_TRACE_s(fprintf(stderr, "%s (%s) Limit=%s\n", 
  +			 line, 
  +			 (errmsg ? errmsg : "OK"),
  +			 (cmd->limited > 0 ? "yes" : "no") ));
  +	if(errmsg)
  +	    log_printf(cmd->server, "<Perl>: %s", errmsg);
       }
  -    else
  -        value = SvPV(tmpval,na); 
  -
  -    sprintf(line, "%s %s", tmpkey, value);
  -    errmsg = handle_command(cmd, cfg, line); 
  -    MP_TRACE_s(fprintf(stderr, "%s (%s) Limit=%s\n", 
  -             line, 
  -             (errmsg ? errmsg : "OK"),
  -             (cmd->limited > 0 ? "yes" : "no") ));
  -    if(errmsg)
  -        log_printf(cmd->server, "<Perl>: %s", errmsg);
  -    }
       /* Emulate the handling of end token for the section */ 
       perl_set_config_vectors(cmd, cfg, &core_module);
   } 
  @@ -1211,7 +1211,7 @@
       dSECiter_start
   
       if(entries) {
  -    SECiter_list(perl_virtualhost_section(cmd, dummy, tab));
  +	SECiter_list(perl_virtualhost_section(cmd, dummy, tab));
       }
   
       arg = pstrdup(cmd->pool, getword_conf (cmd->pool, &key));
  @@ -1223,7 +1223,7 @@
   #endif
   
       if (errmsg)
  -    return errmsg;   
  +	return errmsg;   
   
       s->next = main_server->next;
       main_server->next = s;
  @@ -1273,7 +1273,7 @@
       void *new_url_conf;
   
       if(entries) {
  -    SECiter_list(perl_urlsection(cmd, dummy, tab));
  +	SECiter_list(perl_urlsection(cmd, dummy, tab));
       }
   
       new_url_conf = create_per_dir_config (cmd->pool);
  @@ -1282,11 +1282,11 @@
       cmd->override = OR_ALL|ACCESS_CONF;
   
       if (cmd->info) { /* <LocationMatch> */
  -    r = pregcomp(cmd->pool, cmd->path, REG_EXTENDED);
  +	r = pregcomp(cmd->pool, cmd->path, REG_EXTENDED);
       }
       else if (!strcmp(cmd->path, "~")) {
  -    cmd->path = getword_conf (cmd->pool, &key);
  -    r = pregcomp(cmd->pool, cmd->path, REG_EXTENDED);
  +	cmd->path = getword_conf (cmd->pool, &key);
  +	r = pregcomp(cmd->pool, cmd->path, REG_EXTENDED);
       }
   
       TRACE_SECTION(sname, cmd->path);
  @@ -1294,13 +1294,13 @@
       perl_section_hash_walk(cmd, new_url_conf, tab);
   
       conf = (core_dir_config *)get_module_config(
  -    new_url_conf, &core_module);
  +	new_url_conf, &core_module);
       conf->d = pstrdup(cmd->pool, cmd->path);
       test__is_match(conf);
       conf->r = r;
   
       add_per_url_conf (cmd->server, new_url_conf);
  -        
  +	    
       dSECiter_stop
   
       cmd->path = old_path;
  @@ -1325,7 +1325,7 @@
       regex_t *r = NULL;
   
       if(entries) {
  -    SECiter_list(perl_dirsection(cmd, dummy, tab));
  +	SECiter_list(perl_dirsection(cmd, dummy, tab));
       }
   
       new_dir_conf = create_per_dir_config (cmd->pool);
  @@ -1339,11 +1339,11 @@
       cmd->override = OR_ALL|ACCESS_CONF;
   
       if (cmd->info) { /* <DirectoryMatch> */
  -    r = pregcomp(cmd->pool, cmd->path, REG_EXTENDED|USE_ICASE);
  +	r = pregcomp(cmd->pool, cmd->path, REG_EXTENDED|USE_ICASE);
       }
       else if (!strcmp(cmd->path, "~")) {
  -    cmd->path = getword_conf (cmd->pool, &key);
  -    r = pregcomp(cmd->pool, cmd->path, REG_EXTENDED);
  +	cmd->path = getword_conf (cmd->pool, &key);
  +	r = pregcomp(cmd->pool, cmd->path, REG_EXTENDED);
       }
   
       TRACE_SECTION(sname, cmd->path);
  @@ -1387,7 +1387,7 @@
       regex_t *r = NULL;
   
       if(entries) {
  -    SECiter_list(perl_filesection(cmd, dummy, tab));
  +	SECiter_list(perl_filesection(cmd, dummy, tab));
       }
   
       new_file_conf = create_per_dir_config (cmd->pool);
  @@ -1395,19 +1395,19 @@
       cmd->path = pstrdup(cmd->pool, getword_conf (cmd->pool, &key));
       /* Only if not an .htaccess file */
       if (!old_path)
  -    cmd->override = OR_ALL|ACCESS_CONF;
  +	cmd->override = OR_ALL|ACCESS_CONF;
   
       if (cmd->info) { /* <FilesMatch> */
           r = ap_pregcomp(cmd->pool, cmd->path, REG_EXTENDED|USE_ICASE);
       }
       else if (!strcmp(cmd->path, "~")) {
  -    cmd->path = getword_conf (cmd->pool, &key);
  -    if (old_path && cmd->path[0] != '/' && cmd->path[0] != '^')
  -        cmd->path = pstrcat(cmd->pool, "^", old_path, cmd->path, NULL);
  -    r = pregcomp(cmd->pool, cmd->path, REG_EXTENDED);
  +	cmd->path = getword_conf (cmd->pool, &key);
  +	if (old_path && cmd->path[0] != '/' && cmd->path[0] != '^')
  +	    cmd->path = pstrcat(cmd->pool, "^", old_path, cmd->path, NULL);
  +	r = pregcomp(cmd->pool, cmd->path, REG_EXTENDED);
       }
       else if (old_path && cmd->path[0] != '/')
  -    cmd->path = pstrcat(cmd->pool, old_path, cmd->path, NULL);
  +	cmd->path = pstrcat(cmd->pool, old_path, cmd->path, NULL);
   
       TRACE_SECTION(sname, cmd->path);
   
  @@ -1415,7 +1415,7 @@
   
       conf = (core_dir_config *)get_module_config(new_file_conf, &core_module);
       if(!conf->opts)
  -    conf->opts = OPT_NONE;
  +	conf->opts = OPT_NONE;
       conf->d = pstrdup(cmd->pool, cmd->path);
       test__is_match(conf);
       conf->r = r;
  @@ -1440,18 +1440,18 @@
       /*void *ac = (void*)create_default_per_dir_config(cmd->pool);*/
   
       if(nrec)
  -    cmd->cmd = nrec;
  +	cmd->cmd = nrec;
   
       if(hv_exists(hv,"METHODS", 7))
          sv = hv_delete(hv, "METHODS", 7, G_SCALAR);
       else
  -    return NULL;
  +	return NULL;
   
       methods = SvPOK(sv) ? SvPVX(sv) : "";
    
       MP_TRACE_s(fprintf(stderr, 
  -             "Found Limit section for `%s'\n", 
  -             methods ? methods : "all methods"));
  +		     "Found Limit section for `%s'\n", 
  +		     methods ? methods : "all methods"));
   
       limit_section(cmd, dummy, methods); 
       perl_section_hash_walk(cmd, dummy, hv);
  @@ -1477,13 +1477,13 @@
   
       MP_TRACE_s(fprintf(stderr, "handle_command (%s): ", line));
       if ((errmsg = handle_command(cmd, config, line))) {
  -    if ((sv = STRICT_PERL_SECTIONS_SV) && SvTRUE(sv)) {
  -        croak("<Perl>: %s", errmsg);
  +	if ((sv = STRICT_PERL_SECTIONS_SV) && SvTRUE(sv)) {
  +	    croak("<Perl>: %s", errmsg);
  +	}
  +	else {
  +	    log_printf(cmd->server, "<Perl>: %s", errmsg);
  +	}
       }
  -    else {
  -        log_printf(cmd->server, "<Perl>: %s", errmsg);
  -    }
  -    }
   
       MP_TRACE_s(fprintf(stderr, "%s\n", errmsg ? errmsg : "OK"));
   }
  @@ -1495,19 +1495,19 @@
       void *old_info = cmd->info;
   
       if (strstr(key, "Match")) {
  -    cmd->info = (void*)key;
  +	cmd->info = (void*)key;
       }
   
       if(strnEQ(key, "Location", 8))
  -    perl_urlsection(cmd, dummy, hv);
  +	perl_urlsection(cmd, dummy, hv);
       else if(strnEQ(key, "Directory", 9)) 
  -    perl_dirsection(cmd, dummy, hv);
  +	perl_dirsection(cmd, dummy, hv);
       else if(strEQ(key, "VirtualHost")) 
  -    perl_virtualhost_section(cmd, dummy, hv);
  +	perl_virtualhost_section(cmd, dummy, hv);
       else if(strnEQ(key, "Files", 5)) 
  -    perl_filesection(cmd, (core_dir_config *)dummy, hv);
  +	perl_filesection(cmd, (core_dir_config *)dummy, hv);
       else if(strEQ(key, "Limit")) 
  -    perl_limit_section(cmd, config, hv);
  +	perl_limit_section(cmd, config, hv);
   
       cmd->info = old_info;
   }
  @@ -1522,45 +1522,45 @@
       if(!n) n = alen+1;
   
       for(i=0; i<=alen; i+=n) {
  -    SV *fsv;
  -    if(AvFILL(av) < 0)
  -        break;
  -
  -    fsv = *av_fetch(av, 0, FALSE);
  -
  -    if(SvROK(fsv)) {
  -        i -= n;
  -        perl_handle_command_av((AV*)SvRV(av_shift(av)), 0, 
  -                   key, cmd, config);
  -    }
  -    else {
  -        int do_quote = cmd->cmd->args_how != RAW_ARGS;
  -        SV *sv = newSV(0);
  -        sv_catpv(sv, key);
  -        if (do_quote) {
  -        sv_catpvn(sv, " \"", 2);
  -        }
  -        else {
  -        sv_catpvn(sv, " ", 1);
  -        }
  -        for(j=1; j<=n; j++) {
  -        sv_catsv(sv, av_shift(av));
  -        if (j != n) {
  -            if (do_quote) {
  -            sv_catpvn(sv, "\" \"", 3);
  -            }
  -            else {
  -            sv_catpvn(sv, " ", 1);
  -            }
  -        }
  -        }
  -        if (do_quote) {
  -        sv_catpvn(sv,"\"", 1);
  -        }
  -        perl_handle_command(cmd, config, SvPVX(sv));
  -        SvREFCNT_dec(sv);
  +	SV *fsv;
  +	if(AvFILL(av) < 0)
  +	    break;
  +
  +	fsv = *av_fetch(av, 0, FALSE);
  +
  +	if(SvROK(fsv)) {
  +	    i -= n;
  +	    perl_handle_command_av((AV*)SvRV(av_shift(av)), 0, 
  +				   key, cmd, config);
  +	}
  +	else {
  +	    int do_quote = cmd->cmd->args_how != RAW_ARGS;
  +	    SV *sv = newSV(0);
  +	    sv_catpv(sv, key);
  +	    if (do_quote) {
  +		sv_catpvn(sv, " \"", 2);
  +	    }
  +	    else {
  +		sv_catpvn(sv, " ", 1);
  +	    }
  +	    for(j=1; j<=n; j++) {
  +		sv_catsv(sv, av_shift(av));
  +		if (j != n) {
  +		    if (do_quote) {
  +			sv_catpvn(sv, "\" \"", 3);
  +		    }
  +		    else {
  +			sv_catpvn(sv, " ", 1);
  +		    }
  +		}
  +	    }
  +	    if (do_quote) {
  +		sv_catpvn(sv,"\"", 1);
  +	    }
  +	    perl_handle_command(cmd, config, SvPVX(sv));
  +	    SvREFCNT_dec(sv);
  +	}
       }
  -    }
       dowarn = oldwarn; 
   }
   
  @@ -1568,31 +1568,31 @@
   char *splain_args(enum cmd_how args_how) {
       switch(args_how) {
       case RAW_ARGS:
  -    return "RAW_ARGS";
  +	return "RAW_ARGS";
       case TAKE1:
  -    return "TAKE1";
  +	return "TAKE1";
       case TAKE2:
  -    return "TAKE2";
  +	return "TAKE2";
       case ITERATE:
  -    return "ITERATE";
  +	return "ITERATE";
       case ITERATE2:
  -    return "ITERATE2";
  +	return "ITERATE2";
       case FLAG:
  -    return "FLAG";
  +	return "FLAG";
       case NO_ARGS:
  -    return "NO_ARGS";
  +	return "NO_ARGS";
       case TAKE12:
  -    return "TAKE12";
  +	return "TAKE12";
       case TAKE3:
  -    return "TAKE3";
  +	return "TAKE3";
       case TAKE23:
  -    return "TAKE23";
  +	return "TAKE23";
       case TAKE123:
  -    return "TAKE123";
  +	return "TAKE123";
       case TAKE13:
  -    return "TAKE13";
  +	return "TAKE13";
       default:
  -    return "__UNKNOWN__";
  +	return "__UNKNOWN__";
       };
   }
   #endif
  @@ -1606,7 +1606,7 @@
       curstash = gv_stashpv(PERL_SECTIONS_PACKAGE, GV_ADDWARN);
       gv = GvHV_init(name);
       if(dotie && !perl_sections_self_boot)
  -    perl_tie_hash(GvHV(gv), "Tie::IxHash", Nullsv);
  +	perl_tie_hash(GvHV(gv), "Tie::IxHash", Nullsv);
       LEAVE;
   }
   
  @@ -1617,15 +1617,15 @@
       if(!PERL_RUNNING()) perl_startup(parms->server, parms->pool); 
   
       if(!(symtab = gv_stashpv(PERL_SECTIONS_PACKAGE, FALSE))) 
  -    return;
  +	return;
   
       nk = perl_eval_pv("scalar(keys %ApacheReadConfig::);",TRUE);
       if(!SvIV(nk))
  -    return;
  +	return;
   
       MP_TRACE_s(fprintf(stderr, 
  -             "bootstrapping <Perl> sections: arg=%s, keys=%d\n", 
  -               arg, (int)SvIV(nk)));
  +		     "bootstrapping <Perl> sections: arg=%s, keys=%d\n", 
  +		       arg, (int)SvIV(nk)));
       
       perl_sections_boot_module = arg;
       perl_sections_self_boot = 1;
  @@ -1635,22 +1635,22 @@
   
       /* make sure this module is re-loaded for the second config read */
       if(PERL_RUNNING() == 1) {
  -    SV *file = Nullsv;
  -    if(arg) {
  -        if(strrchr(arg, '/') || strrchr(arg, '.'))
  -        file = newSVpv((char *)arg,0);
  -        else
  -        file = perl_module2file((char *)arg);
  -    }
  -
  -    if(file && hv_exists_ent(GvHV(incgv), file, FALSE)) {
  -        MP_TRACE_s(fprintf(stderr,
  -                 "mod_perl: delete $INC{'%s'} (klen=%d)\n", 
  -                 SvPVX(file), SvCUR(file)));
  -        (void)hv_delete_ent(GvHV(incgv), file, G_DISCARD, FALSE);
  -    }
  -    if(file)
  -        SvREFCNT_dec(file);
  +	SV *file = Nullsv;
  +	if(arg) {
  +	    if(strrchr(arg, '/') || strrchr(arg, '.'))
  +		file = newSVpv((char *)arg,0);
  +	    else
  +		file = perl_module2file((char *)arg);
  +	}
  +
  +	if(file && hv_exists_ent(GvHV(incgv), file, FALSE)) {
  +	    MP_TRACE_s(fprintf(stderr,
  +			     "mod_perl: delete $INC{'%s'} (klen=%d)\n", 
  +			     SvPVX(file), SvCUR(file)));
  +	    (void)hv_delete_ent(GvHV(incgv), file, G_DISCARD, FALSE);
  +	}
  +	if(file)
  +	    SvREFCNT_dec(file);
       }   
   }
   
  @@ -1662,19 +1662,19 @@
   
       (void)hv_iterinit(symtab);
       while ((val = hv_iternextsv(symtab, &key, &klen))) {
  -    SV *sv;
  -    HV *hv;
  -    AV *av;
  -    dTHR;
  -
  -    if((SvTYPE(val) != SVt_PVGV) || GvIMPORTED((GV*)val))
  -        continue;
  -    if((sv = GvSV((GV*)val)))
  -        sv_setsv(GvSV((GV*)val), &sv_undef);
  -    if((hv = GvHV((GV*)val)))
  -        hv_clear(hv);
  -    if((av = GvAV((GV*)val)))
  -        av_clear(av);
  +	SV *sv;
  +	HV *hv;
  +	AV *av;
  +	dTHR;
  +
  +	if((SvTYPE(val) != SVt_PVGV) || GvIMPORTED((GV*)val))
  +	    continue;
  +	if((sv = GvSV((GV*)val)))
  +	    sv_setsv(GvSV((GV*)val), &sv_undef);
  +	if((hv = GvHV((GV*)val)))
  +	    hv_clear(hv);
  +	if((av = GvAV((GV*)val)))
  +	    av_clear(av);
       }
   }
   
  @@ -1693,19 +1693,19 @@
       require_Apache(parms->server);
   
       if(PERL_RUNNING()) {
  -    code = newSV(0);
  -    sv_setpv(code, "");
  -    if(arg) 
  -        errmsg = perl_srm_command_loop(parms, code);
  +	code = newSV(0);
  +	sv_setpv(code, "");
  +	if(arg) 
  +	    errmsg = perl_srm_command_loop(parms, code);
       }
       else {
  -    MP_TRACE_s(fprintf(stderr, 
  -             "perl_section: Perl not running, returning...\n"));
  -    return NULL;
  +	MP_TRACE_s(fprintf(stderr, 
  +			 "perl_section: Perl not running, returning...\n"));
  +	return NULL;
       }
   
       if((perl_require_module("Tie::IxHash", NULL) == OK))
  -    dotie = TRUE;
  +	dotie = TRUE;
   
       perl_section_hash_init("Location", dotie);
       perl_section_hash_init("LocationMatch", dotie);
  @@ -1724,92 +1724,92 @@
       LEAVE_SAFE;
   
       {
  -    dTHR;
  -    dTHRCTX;
  -    if(SvTRUE(ERRSV)) {
  -        MP_TRACE_s(fprintf(stderr, 
  -                   "Apache::ReadConfig: %s\n", SvPV(ERRSV,na)));
  -        return SvPV(ERRSV,na);
  +	dTHR;
  +	dTHRCTX;
  +	if(SvTRUE(ERRSV)) {
  +	    MP_TRACE_s(fprintf(stderr, 
  +			       "Apache::ReadConfig: %s\n", SvPV(ERRSV,na)));
  +	    return SvPV(ERRSV,na);
  +	}
       }
  -    }
   
       symtab = (HV*)gv_stashpv(PERL_SECTIONS_PACKAGE, FALSE);
       (void)hv_iterinit(symtab);
       while ((val = hv_iternextsv(symtab, &key, &klen))) {
  -    SV *sv;
  -    HV *hv;
  -    AV *av;
  -
  -    if(SvTYPE(val) != SVt_PVGV) 
  -        continue;
  -
  -    if((sv = GvSV((GV*)val))) {
  -        if(SvTRUE(sv)) {
  -        if(STRING_MEAL(key)) {
  -            perl_eat_config_string(parms, config, sv);
  -        }
  -        else {
  -            STRLEN junk;
  -            MP_TRACE_s(fprintf(stderr, "SVt_PV: $%s = `%s'\n",
  -                             key, SvPV(sv,junk)));
  -            sprintf(line, "%s %s", key, SvPV(sv,junk));
  -            perl_handle_command(parms, config, line);
  -        }
  -        }
  +	SV *sv;
  +	HV *hv;
  +	AV *av;
  +
  +	if(SvTYPE(val) != SVt_PVGV) 
  +	    continue;
  +
  +	if((sv = GvSV((GV*)val))) {
  +	    if(SvTRUE(sv)) {
  +		if(STRING_MEAL(key)) {
  +		    perl_eat_config_string(parms, config, sv);
  +		}
  +		else {
  +		    STRLEN junk;
  +		    MP_TRACE_s(fprintf(stderr, "SVt_PV: $%s = `%s'\n",
  +							 key, SvPV(sv,junk)));
  +		    sprintf(line, "%s %s", key, SvPV(sv,junk));
  +		    perl_handle_command(parms, config, line);
  +		}
  +	    }
  +	}
  +
  +	if((hv = GvHV((GV*)val))) {
  +	    perl_handle_command_hv(hv, key, parms, config);
  +	}
  +	else if((av = GvAV((GV*)val))) {	
  +	    module *tmod = top_module;
  +	    const command_rec *c; 
  +	    I32 shift, alen = AvFILL(av);
  +
  +	    if(STRING_MEAL(key)) {
  +		SV *tmpsv;
  +		while((tmpsv = av_shift(av)) != &sv_undef)
  +		    perl_eat_config_string(parms, config, tmpsv);
  +		continue;
  +	    }
  +
  +	    if(!(c = find_command_in_modules((const char *)key, &tmod))) {
  +		fprintf(stderr, "command_rec for directive `%s' not found!\n", key);
  +		continue;
  +	    }
  +
  +	    MP_TRACE_s(fprintf(stderr, 
  +			     "`@%s' directive is %s, (%d elements)\n", 
  +			     key, splain_args(c->args_how), (int)AvFILL(av)+1));
  +
  +	    switch (c->args_how) {
  +		
  +	    case TAKE23:
  +	    case TAKE2:
  +		shift = 2;
  +		break;
  +
  +	    case TAKE3:
  +		shift = 3;
  +		break;
  +
  +	    default:
  +		MP_TRACE_s(fprintf(stderr, 
  +				 "default: iterating over @%s\n", key));
  +		shift = 1;
  +		break;
  +	    }
  +	    if(shift > alen+1) shift = 1; /* elements are refs */ 
  +	    perl_handle_command_av(av, shift, key, parms, config);
  +	}
       }
  -
  -    if((hv = GvHV((GV*)val))) {
  -        perl_handle_command_hv(hv, key, parms, config);
  -    }
  -    else if((av = GvAV((GV*)val))) {    
  -        module *tmod = top_module;
  -        const command_rec *c; 
  -        I32 shift, alen = AvFILL(av);
  -
  -        if(STRING_MEAL(key)) {
  -        SV *tmpsv;
  -        while((tmpsv = av_shift(av)) != &sv_undef)
  -            perl_eat_config_string(parms, config, tmpsv);
  -        continue;
  -        }
  -
  -        if(!(c = find_command_in_modules((const char *)key, &tmod))) {
  -        fprintf(stderr, "command_rec for directive `%s' not found!\n", key);
  -        continue;
  -        }
  -
  -        MP_TRACE_s(fprintf(stderr, 
  -                 "`@%s' directive is %s, (%d elements)\n", 
  -                 key, splain_args(c->args_how), (int)AvFILL(av)+1));
  -
  -        switch (c->args_how) {
  -        
  -        case TAKE23:
  -        case TAKE2:
  -        shift = 2;
  -        break;
  -
  -        case TAKE3:
  -        shift = 3;
  -        break;
  -
  -        default:
  -        MP_TRACE_s(fprintf(stderr, 
  -                 "default: iterating over @%s\n", key));
  -        shift = 1;
  -        break;
  -        }
  -        if(shift > alen+1) shift = 1; /* elements are refs */ 
  -        perl_handle_command_av(av, shift, key, parms, config);
  -    }
  -    }
       SvREFCNT_dec(code);
       {
  -    SV *usv = perl_get_sv("Apache::Server::SaveConfig", FALSE);
  -    if(usv && SvTRUE(usv))
  -        ; /* keep it around */
  -    else
  -        clear_symtab(symtab);
  +	SV *usv = perl_get_sv("Apache::Server::SaveConfig", FALSE);
  +	if(usv && SvTRUE(usv))
  +	    ; /* keep it around */
  +	else
  +	    clear_symtab(symtab);
       }
       return NULL;
   }
  @@ -1823,14 +1823,14 @@
   
       ap_cpystrn(name, string, sizeof(name));
       if (!(s = (char *)strstr(name, "Api"))) {
  -    return -1;
  +	return -1;
       }
       *s = '\0';
   
       if (strEQ(name, "Uri")) {
  -    /* s/^Uri$/URI/ */
  -    name[1] = toUPPER(name[1]);
  -    name[2] = toUPPER(name[2]);
  +	/* s/^Uri$/URI/ */
  +	name[1] = toUPPER(name[1]);
  +	name[2] = toUPPER(name[2]);
       }
   
       /* XXX: assumes .xs is linked static */
  @@ -1840,154 +1840,154 @@
   int perl_hook(char *name)
   {
       switch (*name) {
  -    case 'A':
  -        if (strEQ(name, "Authen")) 
  +	case 'A':
  +	    if (strEQ(name, "Authen")) 
   #ifdef PERL_AUTHEN
  -        return 1;
  +		return 1;
   #else
  -    return 0;    
  +	return 0;    
   #endif
  -    if (strEQ(name, "Authz"))
  +	if (strEQ(name, "Authz"))
   #ifdef PERL_AUTHZ
  -        return 1;
  +	    return 1;
   #else
  -    return 0;    
  +	return 0;    
   #endif
  -    if (strEQ(name, "Access"))
  +	if (strEQ(name, "Access"))
   #ifdef PERL_ACCESS
  -        return 1;
  +	    return 1;
   #else
  -    return 0;    
  +	return 0;    
   #endif
  -    break;
  -    case 'C':
  -        if (strEQ(name, "ChildInit")) 
  +	break;
  +	case 'C':
  +	    if (strEQ(name, "ChildInit")) 
   #ifdef PERL_CHILD_INIT
  -        return 1;
  +		return 1;
   #else
  -    return 0;    
  +	return 0;    
   #endif
  -        if (strEQ(name, "ChildExit")) 
  +	    if (strEQ(name, "ChildExit")) 
   #ifdef PERL_CHILD_EXIT
  -        return 1;
  +		return 1;
   #else
  -    return 0;    
  +	return 0;    
   #endif
  -        if (strEQ(name, "Cleanup")) 
  +	    if (strEQ(name, "Cleanup")) 
   #ifdef PERL_CLEANUP
  -        return 1;
  +		return 1;
   #else
  -    return 0;    
  +	return 0;    
   #endif
  -    break;
  -    case 'D':
  -        if (strEQ(name, "Dispatch")) 
  +	break;
  +	case 'D':
  +	    if (strEQ(name, "Dispatch")) 
   #ifdef PERL_DISPATCH
  -        return 1;
  +		return 1;
   #else
  -    return 0;    
  +	return 0;    
   #endif
  -        if (strEQ(name, "DirectiveHandlers")) 
  +	    if (strEQ(name, "DirectiveHandlers")) 
   #ifdef PERL_DIRECTIVE_HANDLERS
  -        return 1;
  +		return 1;
   #else
  -    return 0;    
  +	return 0;    
   #endif
   
  -    break;
  -    case 'F':
  -        if (strEQ(name, "Fixup")) 
  +	break;
  +	case 'F':
  +	    if (strEQ(name, "Fixup")) 
   #ifdef PERL_FIXUP
  -        return 1;
  +		return 1;
   #else
  -    return 0;    
  +	return 0;    
   #endif
  -    break;
  +	break;
   #if MODULE_MAGIC_NUMBER >= 19970103
  -    case 'H':
  -        if (strEQ(name, "HeaderParser")) 
  +	case 'H':
  +	    if (strEQ(name, "HeaderParser")) 
   #ifdef PERL_HEADER_PARSER
  -        return 1;
  +		return 1;
   #else
  -    return 0;    
  +	return 0;    
   #endif
  -    break;
  +	break;
   #endif
   #if MODULE_MAGIC_NUMBER >= 19970103
  -    case 'I':
  -        if (strEQ(name, "Init")) 
  +	case 'I':
  +	    if (strEQ(name, "Init")) 
   #ifdef PERL_INIT
  -        return 1;
  +		return 1;
   #else
  -    return 0;    
  +	return 0;    
   #endif
  -    break;
  +	break;
   #endif
  -    case 'L':
  -        if (strEQ(name, "Log")) 
  +	case 'L':
  +	    if (strEQ(name, "Log")) 
   #ifdef PERL_LOG
  -        return 1;
  +		return 1;
   #else
  -    return 0;    
  +	return 0;    
   #endif
  -    break;
  -    case 'M':
  -        if (strEQ(name, "MethodHandlers")) 
  +	break;
  +	case 'M':
  +	    if (strEQ(name, "MethodHandlers")) 
   #ifdef PERL_METHOD_HANDLERS
  -        return 1;
  +		return 1;
   #else
  -    return 0;    
  +	return 0;    
   #endif
  -    break;
  -    case 'P':
  -        if (strEQ(name, "PostReadRequest")) 
  +	break;
  +	case 'P':
  +	    if (strEQ(name, "PostReadRequest")) 
   #ifdef PERL_POST_READ_REQUEST
  -        return 1;
  +		return 1;
   #else
  -    return 0;    
  +	return 0;    
   #endif
  -    break;
  -    case 'R':
  -        if (strEQ(name, "Restart")) 
  +	break;
  +	case 'R':
  +	    if (strEQ(name, "Restart")) 
   #ifdef PERL_RESTART
  -        return 1;
  +		return 1;
   #else
  -    return 0;    
  +	return 0;    
   #endif
  -    case 'S':
  -        if (strEQ(name, "SSI")) 
  +	case 'S':
  +	    if (strEQ(name, "SSI")) 
   #ifdef PERL_SSI
  -        return 1;
  +		return 1;
   #else
  -    return 0;    
  +	return 0;    
   #endif
  -        if (strEQ(name, "StackedHandlers")) 
  +	    if (strEQ(name, "StackedHandlers")) 
   #ifdef PERL_STACKED_HANDLERS
  -        return 1;
  +		return 1;
   #else
  -    return 0;    
  +	return 0;    
   #endif
  -        if (strEQ(name, "Sections")) 
  +	    if (strEQ(name, "Sections")) 
   #ifdef PERL_SECTIONS
  -        return 1;
  +		return 1;
   #else
  -    return 0;    
  +	return 0;    
   #endif
  -    break;
  -    case 'T':
  -        if (strEQ(name, "Trans")) 
  +	break;
  +	case 'T':
  +	    if (strEQ(name, "Trans")) 
   #ifdef PERL_TRANS
  -        return 1;
  +		return 1;
   #else
  -    return 0;    
  +	return 0;    
   #endif
           if (strEQ(name, "Type")) 
   #ifdef PERL_TYPE
  -        return 1;
  +	    return 1;
   #else
  -    return 0;    
  +	return 0;    
   #endif
  -    break;
  +	break;
       }
   
       return perl_hook_api(name);
  
  
  

Mime
View raw message