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

[stas]

stas        2003/09/11 11:10:39

  Modified:    src/modules/perl mod_perl.c
  Log:
  add a proper debug tracing for what hash seed is picked by mod_perl
  
  Revision  Changes    Path
  1.183     +11 -2     modperl-2.0/src/modules/perl/mod_perl.c
  
  Index: mod_perl.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/mod_perl.c,v
  retrieving revision 1.182
  retrieving revision 1.183
  diff -u -u -r1.182 -r1.183
  --- mod_perl.c        11 Sep 2003 18:09:48 -0000      1.182
  +++ mod_perl.c        11 Sep 2003 18:10:39 -0000      1.183
  @@ -57,8 +57,17 @@
   
           MP_init_hash_seed_set = TRUE;
       }
  -
  -    /* fprintf(stderr, "GOT SEED: %ld\n", MP_init_hash_seed); */
  +    
  +    rv = apr_env_get(&s, "PERL_HASH_SEED_DEBUG", p);
  +    if (rv == APR_SUCCESS) {
  +        if (s) {
  +            int i = atoi(s);
  +            if (i == 1) {
  +                fprintf(stderr, "\nmod_perl: using init hash seed: %"UVuf"\n",
  +                        MP_init_hash_seed);
  +            }
  +        }
  +    }
   #endif
   }