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

[dougm]

dougm       01/11/14 17:30:46

  Modified:    src/modules/perl mod_perl.c
  Log:
  save globals before populating %ENV vars
  
  Revision  Changes    Path
  1.94      +2 -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.93
  retrieving revision 1.94
  diff -u -r1.93 -r1.94
  --- mod_perl.c        2001/11/01 23:50:32     1.93
  +++ mod_perl.c        2001/11/15 01:30:45     1.94
  @@ -524,6 +524,8 @@
       }
   #endif
   
  +    modperl_perl_global_request_save(aTHX_ r);
  +
       /* default is +SetupEnv, skip if PerlOption -SetupEnv */
       if (MpDirSETUP_ENV(dcfg) || !MpDirSeenSETUP_ENV(dcfg)) {
           modperl_env_request_populate(aTHX_ r);
  @@ -532,8 +534,6 @@
       if (MpDirPARSE_HEADERS(dcfg)) {
           rcfg->wbucket.header_parse = 1;
       }
  -
  -    modperl_perl_global_request_save(aTHX_ r);
   
       h_stdout = modperl_io_tie_stdout(aTHX_ r);
       h_stdin  = modperl_io_tie_stdin(aTHX_ r);