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

[stas]

stas        2003/10/14 17:37:59

  Modified:    src/modules/perl modperl_io.c
  Log:
  of course, it's a good idea not to leak globals
  
  Revision  Changes    Path
  1.19      +4 -0      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.18
  retrieving revision 1.19
  diff -u -u -r1.18 -r1.19
  --- modperl_io.c      15 Oct 2003 00:31:33 -0000      1.18
  +++ modperl_io.c      15 Oct 2003 00:37:59 -0000      1.19
  @@ -174,6 +174,8 @@
       status = Perl_do_open9(aTHX_ handle_orig, "<&", 2, FALSE, O_RDONLY,
                              0, Nullfp, (SV*)handle, 1);
       Perl_do_close(aTHX_ handle, FALSE);
  +    (void)hv_delete(gv_stashpv("Apache::RequestIO", TRUE), 
  +                 GvNAME(handle), GvNAMELEN(handle), G_DISCARD);
       if (status == 0) {
           Perl_croak(aTHX_ "Failed to restore STDIN: %_", get_sv("!", TRUE));
       }
  @@ -194,6 +196,8 @@
       status = Perl_do_open9(aTHX_ handle_orig, ">&", 2, FALSE, O_WRONLY,
                              0, Nullfp, (SV*)handle, 1);
       Perl_do_close(aTHX_ handle, FALSE);
  +    (void)hv_delete(gv_stashpv("Apache::RequestIO", TRUE), 
  +                 GvNAME(handle), GvNAMELEN(handle), G_DISCARD);
       if (status == 0) {
           Perl_croak(aTHX_ "Failed to restore STDOUT: %_", get_sv("!", TRUE));
       }