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

[geoff]

geoff       2003/08/11 11:02:43

  Modified:    src/modules/perl mod_perl.c
  Log:
  fix for PERL_HASH_SEED oddity
  Submitted by: geoff
  Reviewed by:  stas
  
  Revision  Changes    Path
  1.176     +1 -1      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.175
  retrieving revision 1.176
  diff -u -r1.175 -r1.176
  --- mod_perl.c        6 Aug 2003 06:46:35 -0000       1.175
  +++ mod_perl.c        11 Aug 2003 18:02:43 -0000      1.176
  @@ -33,7 +33,7 @@
       /* check if there is a specific hash seed passed via the env var
        * and if that's the case -- use it */
       apr_status_t rv = apr_env_get(&s, "PERL_HASH_SEED", p);
  -    if (rv != APR_ENOTIMPL) {
  +    if (rv == APR_SUCCESS) {
           if (s) {
               while (isSPACE(*s)) s++;
           }