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 Wed, 05 Dec 2001 04:20:04 GMT
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
  
  
  

Mime
View raw message