You are viewing a plain text version of this content. The canonical link for it is here.
Posted to test-cvs@httpd.apache.org by do...@apache.org on 2002/01/08 20:00:14 UTC
cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache Test.pm
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