httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache Test.pm
Date Tue, 08 Jan 2002 19:00:14 GMT
dougm       02/01/08 11:00:14

  Modified:    perl-framework/Apache-Test/lib/Apache Test.pm
  Log:
  register cleanup to untie STDOUT after request is over
  
  Revision  Changes    Path
  1.43      +2 -0      httpd-test/perl-framework/Apache-Test/lib/Apache/Test.pm
  
  Index: Test.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/Test.pm,v
  retrieving revision 1.42
  retrieving revision 1.43
  diff -u -r1.42 -r1.43
  --- Test.pm	24 Dec 2001 05:46:51 -0000	1.42
  +++ Test.pm	8 Jan 2002 19:00:14 -0000	1.43
  @@ -60,6 +60,8 @@
       if (defined &Apache::RequestRec::TIEHANDLE) {
           untie *STDOUT;
           tie *STDOUT, $r;
  +        require APR::Pool;
  +        $r->pool->cleanup_register(sub { untie *STDOUT });
       }
       else {
           $r->send_http_header; #1.xx
  
  
  

Mime
View raw message