dougm 01/12/04 21:11:20
Modified: perl-framework/Apache-Test/lib/Apache Test.pm
Log:
just untie STDOUT; without testing if tied *STDOUT;
else perl warns an inner reference still exists
Revision Changes Path
1.37 +1 -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.36
retrieving revision 1.37
diff -u -r1.36 -r1.37
--- Test.pm 2001/12/05 04:20:04 1.36
+++ Test.pm 2001/12/05 05:11:20 1.37
@@ -57,7 +57,7 @@
my $r = shift;
if (defined &Apache::RequestRec::TIEHANDLE) {
- untie *STDOUT if tied *STDOUT;
+ untie *STDOUT;
tie *STDOUT, $r;
}
else {
