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

[stas]

stas        2003/09/16 11:47:53

  Modified:    src/modules/perl mod_perl.c
  Log:
  win32 doesn't like printf before perl is started, use ap_log_error instead
  and move the info/debug mod_perl hash seed notice to a latter stage
  (post_config) so it gets logged to error_log if LogLevel >= Info.
  
  Revision  Changes    Path
  1.185     +5 -11     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.184
  retrieving revision 1.185
  diff -u -u -r1.184 -r1.185
  --- mod_perl.c        16 Sep 2003 05:01:38 -0000      1.184
  +++ mod_perl.c        16 Sep 2003 18:47:53 -0000      1.185
  @@ -57,17 +57,6 @@
   
           MP_init_hash_seed_set = TRUE;
       }
  -    
  -    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
   }
   
  @@ -619,6 +608,11 @@
       modperl_init_clones(s, pconf);
   #endif
   
  +#ifdef MP_NEED_HASH_SEED_FIXUP
  +    ap_log_error(APLOG_MARK, APLOG_INFO, 0, s,
  +                 "mod_perl: using Perl HASH_SEED: %"UVuf, MP_init_hash_seed);
  +#endif
  +    
       return OK;
   }