dougm 01/05/05 15:05:04
Modified: Apache-Test/lib/Apache Test.pm
Log:
dont tie STDOUT if already tied
Revision Changes Path
1.5 +1 -1 modperl-2.0/Apache-Test/lib/Apache/Test.pm
Index: Test.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/Apache-Test/lib/Apache/Test.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- Test.pm 2001/04/20 03:07:52 1.4
+++ Test.pm 2001/05/05 22:05:04 1.5
@@ -21,7 +21,7 @@
my $r = shift;
if (defined &Apache::RequestRec::TIEHANDLE) {
- tie *STDOUT, $r;
+ tie *STDOUT, $r unless tied *STDOUT; #SetHandler perl-script will tie
}
else {
$r->send_http_header; #1.xx
