dougm 01/12/04 20:20:04
Modified: perl-framework/Apache-Test/lib/Apache Test.pm
Log:
always re-tie STDOUT in init_test_pm(), since we tie and do not untie,
the tied object might be stale (from the previous request)
Revision Changes Path
1.36 +2 -1 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.35
retrieving revision 1.36
diff -u -r1.35 -r1.36
--- Test.pm 2001/11/22 03:28:37 1.35
+++ Test.pm 2001/12/05 04:20:04 1.36
@@ -57,7 +57,8 @@
my $r = shift;
if (defined &Apache::RequestRec::TIEHANDLE) {
- tie *STDOUT, $r unless tied *STDOUT; #SetHandler perl-script will tie
+ untie *STDOUT if tied *STDOUT;
+ tie *STDOUT, $r;
}
else {
$r->send_http_header; #1.xx
