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

[stas]

stas        2003/10/14 17:31:33

  Modified:    src/modules/perl modperl_io.c
  Log:
  if both the main request and the sub-request happen to use overriden STD*,
  we can't re-use the same global to store the original GV, therefore need to
  generate a new global for each override.
  
  Revision  Changes    Path
  1.18      +6 -2      modperl-2.0/src/modules/perl/modperl_io.c
  
  Index: modperl_io.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_io.c,v
  retrieving revision 1.17
  retrieving revision 1.18
  diff -u -u -r1.17 -r1.18
  --- modperl_io.c      15 Oct 2003 00:28:51 -0000      1.17
  +++ modperl_io.c      15 Oct 2003 00:31:33 -0000      1.18
  @@ -92,7 +92,9 @@
   {
       dHANDLE("STDIN");
       int status;
  -    GV *handle_save = gv_fetchpv("STDIN_SAVED", TRUE, SVt_PVIO);
  +    GV *handle_save = gv_fetchpv(Perl_form(aTHX_ "Apache::RequestIO::_GEN_%ld",
  +                                           (long)PL_gensym++),
  +                                 TRUE, SVt_PVIO);
       SV *sv = sv_newmortal();
   
       sv_setref_pv(sv, "Apache::RequestRec", (void*)r);
  @@ -125,7 +127,9 @@
   {
       dHANDLE("STDOUT");
       int status;
  -    GV *handle_save = gv_fetchpv("STDOUT_SAVED", TRUE, SVt_PVIO);
  +    GV *handle_save = gv_fetchpv(Perl_form(aTHX_ "Apache::RequestIO::_GEN_%ld",
  +                                           (long)PL_gensym++),
  +                                 TRUE, SVt_PVIO);
       SV *sv = sv_newmortal();
   
       MP_TRACE_o(MP_FUNC, "start");