cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache Test.pm

[stas]

stas        2003/03/23 23:12:16

  Modified:    perl-framework/Apache-Test/lib/Apache Test.pm
  Log:
  load the modules which might not be loaded yet:
  - Apache::RequestIO for Apache::RequestRec::TIEHANDLE
  - Apache::RequestRec for $r->pool
  
  Revision  Changes    Path
  1.52      +3 -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.51
  retrieving revision 1.52
  diff -u -r1.51 -r1.52
  --- Test.pm   22 Jan 2003 06:58:54 -0000      1.51
  +++ Test.pm   24 Mar 2003 07:12:16 -0000      1.52
  @@ -58,9 +58,12 @@
   sub init_test_pm {
       my $r = shift;
   
  +    # needed to load Apache::RequestRec::TIEHANDLE
  +    eval {require Apache::RequestIO};
       if (defined &Apache::RequestRec::TIEHANDLE) {
           untie *STDOUT;
           tie *STDOUT, $r;
  +        require Apache::RequestRec; # $r->pool
           require APR::Pool;
           $r->pool->cleanup_register(sub { untie *STDOUT });
       }