perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/t/response/TestModules cgi.pm cgiupload.pm
Date Thu, 11 Apr 2002 11:08:45 GMT
stas        02/04/11 04:08:45

  Modified:    t/filter/TestFilter api.pm buckets.pm input_body.pm
                        input_msg.pm lc.pm reverse.pm
               t/hooks/TestHooks access.pm authen.pm authz.pm fixup.pm
                        headerparser.pm init.pm trans.pm
               t/protocol/TestProtocol echo.pm echo_filter.pm eliza.pm
               t/response/TestAPI access.pm aplog.pm conn_rec.pm
                        lookup_uri.pm lookup_uri2.pm module.pm
                        r_subclass.pm request_rec.pm response.pm rutil.pm
                        send_fd.pm sendfile.pm server_rec.pm server_util.pm
                        uri.pm
               t/response/TestAPR base64.pm date.pm netlib.pm perlio.pm
                        pool.pm string.pm table.pm util.pm uuid.pm
               t/response/TestApache cgihandler.pm compat.pm compat2.pm
                        conftree.pm post.pm read.pm scanhdrs.pm
                        subprocess.pm write.pm
               t/response/TestDirective env.pm perlmodule.pm perlrequire.pm
                        setupenv.pm
               t/response/TestModperl dir_config.pm endav.pm env.pm exit.pm
                        getc.pm pnotes.pm print.pm printf.pm readline.pm
                        sameinterp.pm
               t/response/TestModules cgi.pm cgiupload.pm
  Log:
  tidy up tests:
  - fetch/use Apache::OK instead of return 0;
  - use() all modules used in tests even if preloaded elsewhere
  - use warnings FATAL => 'all' everywhere
  - fix warnings exposed by enabling warnings
  
  Revision  Changes    Path
  1.6       +4 -0      modperl-2.0/t/filter/TestFilter/api.pm
  
  Index: api.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/filter/TestFilter/api.pm,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- api.pm	5 Dec 2001 19:57:29 -0000	1.5
  +++ api.pm	11 Apr 2002 11:08:43 -0000	1.6
  @@ -3,10 +3,14 @@
   use strict;
   use warnings FATAL => 'all';
   
  +use Apache::RequestRec ();
  +use Apache::RequestIO ();
   use Apache::Filter ();
   use Apache::FilterRec ();
   
   use Apache::Test;
  +
  +use Apache::Const -compile => 'OK';
   
   my $response_data = "blah blah blah";
   
  
  
  
  1.6       +6 -1      modperl-2.0/t/filter/TestFilter/buckets.pm
  
  Index: buckets.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/filter/TestFilter/buckets.pm,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- buckets.pm	29 Mar 2002 16:16:43 -0000	1.5
  +++ buckets.pm	11 Apr 2002 11:08:43 -0000	1.6
  @@ -3,10 +3,15 @@
   use strict;
   use warnings FATAL => 'all';
   
  -use Test;
  +use Apache::Test;
  +
  +use Apache::RequestRec ();
  +use Apache::RequestIO ();
   use Apache::Filter ();
   use APR::Brigade ();
   use APR::Bucket ();
  +
  +use Apache::Const -compile => 'OK';
   
   sub handler {
       my($filter, $bb) = @_;
  
  
  
  1.11      +5 -2      modperl-2.0/t/filter/TestFilter/input_body.pm
  
  Index: input_body.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/filter/TestFilter/input_body.pm,v
  retrieving revision 1.10
  retrieving revision 1.11
  diff -u -r1.10 -r1.11
  --- input_body.pm	29 Mar 2002 16:16:43 -0000	1.10
  +++ input_body.pm	11 Apr 2002 11:08:43 -0000	1.11
  @@ -5,10 +5,13 @@
   
   use base qw(Apache::Filter); #so we inherit MODIFY_CODE_ATTRIBUTES
   
  -use Apache::Const -compile => qw(M_POST);
  -use APR::Const -compile => ':common';
  +use Apache::RequestRec ();
  +use Apache::RequestIO ();
   use APR::Brigade ();
   use APR::Bucket ();
  +
  +use Apache::Const -compile => qw(OK M_POST);
  +use APR::Const -compile => ':common';
   
   sub handler : FilterRequestHandler {
       my($filter, $bb, $mode, $block, $readbytes) = @_;
  
  
  
  1.11      +5 -0      modperl-2.0/t/filter/TestFilter/input_msg.pm
  
  Index: input_msg.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/filter/TestFilter/input_msg.pm,v
  retrieving revision 1.10
  retrieving revision 1.11
  diff -u -r1.10 -r1.11
  --- input_msg.pm	29 Mar 2002 16:16:43 -0000	1.10
  +++ input_msg.pm	11 Apr 2002 11:08:43 -0000	1.11
  @@ -5,8 +5,13 @@
   
   use base qw(Apache::Filter);
   
  +use Apache::RequestRec ();
  +use Apache::RequestIO ();
   use APR::Brigade ();
   use APR::Bucket ();
  +
  +use Apache::Const -compile => 'OK';
  +use APR::Const -compile => ':common';
   
   my $from_url = '/input_filter.html';
   my $to_url = '/TestFilter::input_msg::response';
  
  
  
  1.3       +3 -1      modperl-2.0/t/filter/TestFilter/lc.pm
  
  Index: lc.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/filter/TestFilter/lc.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- lc.pm	17 Sep 2001 13:27:14 -0000	1.2
  +++ lc.pm	11 Apr 2002 11:08:43 -0000	1.3
  @@ -5,6 +5,8 @@
   
   use Apache::Filter ();
   
  +use Apache::Const -compile => 'OK';
  +
   sub handler {
       my $filter = shift;
   
  @@ -12,7 +14,7 @@
           $filter->print(lc $buffer);
       }
   
  -    0;
  +    Apache::OK;
   }
   
   1;
  
  
  
  1.3       +5 -1      modperl-2.0/t/filter/TestFilter/reverse.pm
  
  Index: reverse.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/filter/TestFilter/reverse.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- reverse.pm	4 Apr 2001 17:48:29 -0000	1.2
  +++ reverse.pm	11 Apr 2002 11:08:43 -0000	1.3
  @@ -3,8 +3,12 @@
   use strict;
   use warnings FATAL => 'all';
   
  +use Apache::RequestRec ();
  +use Apache::RequestIO ();
   use Apache::Filter ();
   
  +use Apache::Const -compile => 'OK';
  +
   sub handler {
       my $filter = shift;
   
  @@ -25,7 +29,7 @@
       $r->puts(scalar reverse "1..1\n");
       $r->puts(scalar reverse "ok 1\n");
   
  -    0;
  +    Apache::OK;
   }
   
   1;
  
  
  
  1.2       +2 -0      modperl-2.0/t/hooks/TestHooks/access.pm
  
  Index: access.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/hooks/TestHooks/access.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- access.pm	13 Apr 2001 01:35:15 -0000	1.1
  +++ access.pm	11 Apr 2002 11:08:43 -0000	1.2
  @@ -5,6 +5,8 @@
   
   use APR::Table ();
   use Apache::Access ();
  +use Apache::RequestRec ();
  +
   use Apache::Const -compile => qw(OK FORBIDDEN);
   
   my $allowed_ips = qr{^(10|127)\.};
  
  
  
  1.5       +1 -0      modperl-2.0/t/hooks/TestHooks/authen.pm
  
  Index: authen.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/hooks/TestHooks/authen.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- authen.pm	12 Apr 2001 04:57:19 -0000	1.4
  +++ authen.pm	11 Apr 2002 11:08:43 -0000	1.5
  @@ -4,6 +4,7 @@
   use warnings FATAL => 'all';
   
   use Apache::Access ();
  +
   use Apache::Const -compile => qw(OK AUTH_REQUIRED SERVER_ERROR);
   
   sub handler {
  
  
  
  1.2       +1 -0      modperl-2.0/t/hooks/TestHooks/authz.pm
  
  Index: authz.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/hooks/TestHooks/authz.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- authz.pm	13 Apr 2001 01:26:56 -0000	1.1
  +++ authz.pm	11 Apr 2002 11:08:43 -0000	1.2
  @@ -4,6 +4,7 @@
   use warnings FATAL => 'all';
   
   use Apache::Access ();
  +
   use Apache::Const -compile => qw(OK AUTH_REQUIRED);
   
   sub auth_any {
  
  
  
  1.2       +5 -0      modperl-2.0/t/hooks/TestHooks/fixup.pm
  
  Index: fixup.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/hooks/TestHooks/fixup.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- fixup.pm	13 Apr 2001 01:41:54 -0000	1.1
  +++ fixup.pm	11 Apr 2002 11:08:43 -0000	1.2
  @@ -5,6 +5,11 @@
   
   use Apache::Test;
   
  +use APR::Table ();
  +use Apache::RequestRec ();
  +
  +use Apache::Const -compile => 'OK';
  +
   sub handler {
       my $r = shift;
   
  
  
  
  1.2       +5 -0      modperl-2.0/t/hooks/TestHooks/headerparser.pm
  
  Index: headerparser.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/hooks/TestHooks/headerparser.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- headerparser.pm	28 Sep 2001 15:21:15 -0000	1.1
  +++ headerparser.pm	11 Apr 2002 11:08:43 -0000	1.2
  @@ -5,6 +5,11 @@
   
   use Apache::Test;
   
  +use APR::Table ();
  +use Apache::RequestRec ();
  +
  +use Apache::Const -compile => 'OK';
  +
   sub handler {
       my $r = shift;
   
  
  
  
  1.2       +5 -0      modperl-2.0/t/hooks/TestHooks/init.pm
  
  Index: init.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/hooks/TestHooks/init.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- init.pm	6 Oct 2001 19:44:30 -0000	1.1
  +++ init.pm	11 Apr 2002 11:08:43 -0000	1.2
  @@ -5,6 +5,11 @@
   
   use Apache::Test;
   
  +use APR::Table ();
  +use Apache::RequestRec ();
  +
  +use Apache::Const -compile => 'OK';
  +
   sub first {
       my $r = shift;
   
  
  
  
  1.4       +4 -0      modperl-2.0/t/hooks/TestHooks/trans.pm
  
  Index: trans.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/hooks/TestHooks/trans.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- trans.pm	22 Oct 2001 18:02:29 -0000	1.3
  +++ trans.pm	11 Apr 2002 11:08:43 -0000	1.4
  @@ -5,6 +5,10 @@
   
   use Apache::TestConfig ();
   
  +use Apache::RequestRec ();
  +
  +use Apache::Const -compile => qw(OK DECLINED);
  +
   my %trans = (
       '/TestHooks/trans.pm' => sub {
           my $r = shift;
  
  
  
  1.2       +6 -2      modperl-2.0/t/protocol/TestProtocol/echo.pm
  
  Index: echo.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/protocol/TestProtocol/echo.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- echo.pm	2 Apr 2001 09:07:23 -0000	1.1
  +++ echo.pm	11 Apr 2002 11:08:43 -0000	1.2
  @@ -1,9 +1,13 @@
   package TestProtocol::echo;
   
   use strict;
  +use warnings FATAL => 'all';
  +
   use Apache::Connection ();
   use APR::Socket ();
   
  +use Apache::Const -compile => 'OK';
  +
   use constant BUFF_LEN => 1024;
   
   sub handler {
  @@ -14,7 +18,7 @@
   
       for (;;) {
           my($rlen, $wlen);
  -        my $rlen = BUFF_LEN;
  +        $rlen = BUFF_LEN;
           $socket->recv($buff, $rlen);
           last if $rlen <= 0;
           $wlen = $rlen;
  @@ -22,7 +26,7 @@
           last if $wlen != $rlen;
       }
   
  -    return 0;
  +    Apache::OK;
   }
   
   1;
  
  
  
  1.6       +6 -3      modperl-2.0/t/protocol/TestProtocol/echo_filter.pm
  
  Index: echo_filter.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/protocol/TestProtocol/echo_filter.pm,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- echo_filter.pm	6 Apr 2002 01:11:04 -0000	1.5
  +++ echo_filter.pm	11 Apr 2002 11:08:43 -0000	1.6
  @@ -1,13 +1,16 @@
   package TestProtocol::echo_filter;
   
   use strict;
  +use warnings FATAL => 'all';
  +
   use Apache::Connection ();
   use APR::Bucket ();
   use APR::Brigade ();
  -use APR::Const -compile => qw(SUCCESS EOF);
  -use Apache::Const -compile => qw(MODE_GETLINE);
   use APR::Util ();
   
  +use APR::Const -compile => qw(SUCCESS EOF);
  +use Apache::Const -compile => qw(OK MODE_GETLINE);
  +
   sub handler {
       my Apache::Connection $c = shift;
   
  @@ -31,7 +34,7 @@
           $c->output_filters->pass_brigade($bb);
       }
   
  -    return Apache::OK;
  +    Apache::OK;
   }
   
   1;
  
  
  
  1.3       +8 -2      modperl-2.0/t/protocol/TestProtocol/eliza.pm
  
  Index: eliza.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/protocol/TestProtocol/eliza.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- eliza.pm	10 Jan 2002 17:26:20 -0000	1.2
  +++ eliza.pm	11 Apr 2002 11:08:43 -0000	1.3
  @@ -1,11 +1,17 @@
   package TestProtocol::eliza;
   
   use strict;
  +use warnings FATAL => 'all';
  +
   use Apache::Connection ();
   use APR::Socket ();
  +
   require Chatbot::Eliza;
   
  +use Apache::Const -compile => 'OK';
  +
   use constant BUFF_LEN => 1024;
  +
   my $mybot = new Chatbot::Eliza;
   
   sub handler {
  @@ -16,7 +22,7 @@
       my $last = 0;
       for (;;) {
           my($rlen, $wlen);
  -        my $rlen = BUFF_LEN;
  +        $rlen = BUFF_LEN;
           $socket->recv($buff, $rlen);
           last if $rlen <= 0;
           chomp $buff;
  @@ -26,7 +32,7 @@
           last if $last;
       }
   
  -    return 0;
  +    Apache::OK;
   }
   
   1;
  
  
  
  1.3       +5 -3      modperl-2.0/t/response/TestAPI/access.pm
  
  Index: access.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/access.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- access.pm	8 Jun 2001 00:46:46 -0000	1.2
  +++ access.pm	11 Apr 2002 11:08:43 -0000	1.3
  @@ -3,10 +3,12 @@
   use strict;
   use warnings FATAL => 'all';
   
  -use Apache::Const -compile => qw(:options :override :satisfy);
  -use Apache::Access ();
   use Apache::Test;
   
  +use Apache::Access ();
  +
  +use Apache::Const -compile => qw(OK :options :override :satisfy);
  +
   sub handler {
       my $r = shift;
   
  @@ -28,7 +30,7 @@
   
       ok $r->auth_type eq 'none';
   
  -    ok ! $r->some_auth_required;
  +    ok !$r->some_auth_required;
   
       Apache::OK;
   }
  
  
  
  1.7       +5 -2      modperl-2.0/t/response/TestAPI/aplog.pm
  
  Index: aplog.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/aplog.pm,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- aplog.pm	17 Aug 2001 04:07:45 -0000	1.6
  +++ aplog.pm	11 Apr 2002 11:08:43 -0000	1.7
  @@ -3,9 +3,12 @@
   use strict;
   use warnings FATAL => 'all';
   
  -use Apache::Log ();
   use Apache::Test;
  -use Apache::Const -compile => ':log';
  +
  +use Apache::Log ();
  +use Apache::RequestRec ();
  +
  +use Apache::Const -compile => qw(OK :log);
   use APR::Const -compile => ':error';
   
   my @LogLevels = qw(emerg alert crit error warn notice info debug);
  
  
  
  1.5       +4 -0      modperl-2.0/t/response/TestAPI/conn_rec.pm
  
  Index: conn_rec.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/conn_rec.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- conn_rec.pm	13 Nov 2001 18:40:01 -0000	1.4
  +++ conn_rec.pm	11 Apr 2002 11:08:43 -0000	1.5
  @@ -5,6 +5,10 @@
   
   use Apache::Test;
   
  +use Apache::RequestRec ();
  +use Apache::RequestUtil ();
  +use Apache::Connection ();
  +
   use Apache::Const -compile => 'OK';
   
   #this test module is only for testing fields in the conn_rec
  
  
  
  1.2       +4 -1      modperl-2.0/t/response/TestAPI/lookup_uri.pm
  
  Index: lookup_uri.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/lookup_uri.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- lookup_uri.pm	4 Apr 2001 17:12:07 -0000	1.1
  +++ lookup_uri.pm	11 Apr 2002 11:08:43 -0000	1.2
  @@ -4,8 +4,11 @@
   use warnings FATAL => 'all';
   
   use Apache::Test;
  +
   use Apache::SubRequest ();
   
  +use Apache::Const -compile => 'OK';
  +
   sub handler {
       my $r = shift;
   
  @@ -14,7 +17,7 @@
       die unless $subr->uri eq $uri;
       $subr->run;
   
  -    0;
  +    Apache::OK;
   }
   
   1;
  
  
  
  1.2       +3 -0      modperl-2.0/t/response/TestAPI/lookup_uri2.pm
  
  Index: lookup_uri2.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/lookup_uri2.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- lookup_uri2.pm	4 Dec 2001 22:44:29 -0000	1.1
  +++ lookup_uri2.pm	11 Apr 2002 11:08:43 -0000	1.2
  @@ -4,6 +4,9 @@
   use warnings FATAL => 'all';
   
   use Apache::SubRequest ();
  +use Apache::RequestIO ();
  +
  +use Apache::Const -compile => 'OK';
   
   sub myplan {
       my $r = shift;
  
  
  
  1.4       +4 -1      modperl-2.0/t/response/TestAPI/module.pm
  
  Index: module.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/module.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- module.pm	13 Oct 2001 19:22:11 -0000	1.3
  +++ module.pm	11 Apr 2002 11:08:43 -0000	1.4
  @@ -6,9 +6,12 @@
   use Apache::Test;
   use Apache::TestConfig;
   use Apache::TestUtil;
  +
   use Apache::Module ();
   use DynaLoader ();
   
  +use Apache::Const -compile => 'OK';
  +
   sub handler {
       my $r = shift;
   
  @@ -87,7 +90,7 @@
       ok t_cmp(0, Apache::Module::loaded('Apache__Module_foo.foo'),
                "Apache::Module::loaded('Apache__Module_foo.foo')");
   
  -    0;
  +    Apache::OK;
   }
   
   1;
  
  
  
  1.2       +3 -0      modperl-2.0/t/response/TestAPI/r_subclass.pm
  
  Index: r_subclass.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/r_subclass.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- r_subclass.pm	30 Apr 2001 07:17:47 -0000	1.1
  +++ r_subclass.pm	11 Apr 2002 11:08:43 -0000	1.2
  @@ -3,9 +3,12 @@
   use strict;
   use warnings FATAL => 'all';
   
  +use Apache::RequestRec ();
   our @ISA = qw(Apache::RequestRec);
   
   use Apache::Test;
  +
  +use Apache::Const -compile => 'OK';
   
   sub new {
       my $class = shift;
  
  
  
  1.15      +3 -0      modperl-2.0/t/response/TestAPI/request_rec.pm
  
  Index: request_rec.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/request_rec.pm,v
  retrieving revision 1.14
  retrieving revision 1.15
  diff -u -r1.14 -r1.15
  --- request_rec.pm	1 Jan 2002 10:21:38 -0000	1.14
  +++ request_rec.pm	11 Apr 2002 11:08:43 -0000	1.15
  @@ -6,6 +6,9 @@
   use Apache::Test;
   use Apache::TestUtil;
   
  +use Apache::RequestRec ();
  +use Apache::RequestUtil ();
  +
   use Apache::Const -compile => 'OK';
   
   #this test module is only for testing fields in the request_rec
  
  
  
  1.2       +4 -0      modperl-2.0/t/response/TestAPI/response.pm
  
  Index: response.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/response.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- response.pm	5 May 2001 01:17:39 -0000	1.1
  +++ response.pm	11 Apr 2002 11:08:43 -0000	1.2
  @@ -3,8 +3,12 @@
   use strict;
   use warnings FATAL => 'all';
   
  +use Apache::RequestRec ();
   use Apache::Response ();
  +
   use Apache::Test;
  +
  +use Apache::Const -compile => 'OK';
   
   sub handler {
       my $r = shift;
  
  
  
  1.3       +4 -1      modperl-2.0/t/response/TestAPI/rutil.pm
  
  Index: rutil.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/rutil.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- rutil.pm	22 May 2001 20:57:44 -0000	1.2
  +++ rutil.pm	11 Apr 2002 11:08:43 -0000	1.3
  @@ -3,9 +3,12 @@
   use strict;
   use warnings FATAL => 'all';
   
  +use Apache::Test;
  +
   use APR::URI ();
   use Apache::RequestUtil ();
  -use Apache::Test;
  +
  +use Apache::Const -compile => 'OK';
   
   my %default_ports = (
       http => 80,
  
  
  
  1.2       +3 -0      modperl-2.0/t/response/TestAPI/send_fd.pm
  
  Index: send_fd.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/send_fd.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- send_fd.pm	28 Apr 2001 19:29:43 -0000	1.1
  +++ send_fd.pm	11 Apr 2002 11:08:43 -0000	1.2
  @@ -4,6 +4,9 @@
   use warnings FATAL => 'all';
   
   use Apache::compat ();
  +use Apache::RequestRec ();
  +
  +use Apache::Const -compile => ':common';
   
   sub handler {
       my $r = shift;
  
  
  
  1.2       +6 -0      modperl-2.0/t/response/TestAPI/sendfile.pm
  
  Index: sendfile.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/sendfile.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- sendfile.pm	28 Apr 2001 19:10:43 -0000	1.1
  +++ sendfile.pm	11 Apr 2002 11:08:43 -0000	1.2
  @@ -3,6 +3,12 @@
   use strict;
   use warnings FATAL => 'all';
   
  +use Apache::RequestRec ();
  +use Apache::RequestIO ();
  +
  +use APR::Const -compile => 'SUCCESS';
  +use Apache::Const -compile => ':common';
  +
   sub handler {
       my $r = shift;
   
  
  
  
  1.8       +3 -0      modperl-2.0/t/response/TestAPI/server_rec.pm
  
  Index: server_rec.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/server_rec.pm,v
  retrieving revision 1.7
  retrieving revision 1.8
  diff -u -r1.7 -r1.8
  --- server_rec.pm	13 Nov 2001 18:40:01 -0000	1.7
  +++ server_rec.pm	11 Apr 2002 11:08:43 -0000	1.8
  @@ -5,6 +5,9 @@
   
   use Apache::Test;
   use Apache::TestUtil;
  +
  +use Apache::RequestRec ();
  +use Apache::Server ();
   use Apache::ServerUtil ();
   
   use Apache::Const -compile => 'OK';
  
  
  
  1.5       +2 -0      modperl-2.0/t/response/TestAPI/server_util.pm
  
  Index: server_util.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/server_util.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- server_util.pm	19 Nov 2001 23:47:24 -0000	1.4
  +++ server_util.pm	11 Apr 2002 11:08:43 -0000	1.5
  @@ -5,6 +5,8 @@
   
   use Apache::Test;
   use Apache::TestUtil;
  +
  +use Apache::RequestRec ();
   use Apache::ServerUtil ();
   
   use Apache::Const -compile => 'OK';
  
  
  
  1.5       +5 -2      modperl-2.0/t/response/TestAPI/uri.pm
  
  Index: uri.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/uri.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- uri.pm	22 May 2001 20:57:46 -0000	1.4
  +++ uri.pm	11 Apr 2002 11:08:43 -0000	1.5
  @@ -3,11 +3,14 @@
   use strict;
   use warnings FATAL => 'all';
   
  +use Apache::Test;
  +
   use APR::URI ();
   use Apache::URI ();
  +use Apache::RequestRec ();
   use Apache::RequestUtil ();
  -use Apache::ServerUtil ();
  -use Apache::Test;
  +
  +use Apache::Const -compile => 'OK';
   
   my $location = '/' . __PACKAGE__;
   
  
  
  
  1.2       +2 -2      modperl-2.0/t/response/TestAPR/base64.pm
  
  Index: base64.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/base64.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- base64.pm	13 Apr 2001 01:11:27 -0000	1.1
  +++ base64.pm	11 Apr 2002 11:08:44 -0000	1.2
  @@ -3,11 +3,11 @@
   use strict;
   use warnings FATAL => 'all';
   
  -use Apache::Const -compile => 'OK';
  -
   use Apache::Test;
   
   use APR::Base64 ();
  +
  +use Apache::Const -compile => 'OK';
   
   sub handler {
       my $r = shift;
  
  
  
  1.2       +2 -1      modperl-2.0/t/response/TestAPR/date.pm
  
  Index: date.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/date.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- date.pm	29 Jan 2002 05:32:39 -0000	1.1
  +++ date.pm	11 Apr 2002 11:08:44 -0000	1.2
  @@ -5,9 +5,10 @@
   
   use Apache::Test;
   use Apache::TestUtil;
  -use Apache::Const -compile => 'OK';
   
   use APR::Date ();
  +
  +use Apache::Const -compile => 'OK';
   
   my @http_dates = (
       'Sun, 06 Nov 1994 08:49:37 GMT',  # RFC 822, updated by RFC 1123
  
  
  
  1.2       +6 -1      modperl-2.0/t/response/TestAPR/netlib.pm
  
  Index: netlib.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/netlib.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- netlib.pm	2 Apr 2001 09:04:28 -0000	1.1
  +++ netlib.pm	11 Apr 2002 11:08:44 -0000	1.2
  @@ -5,8 +5,13 @@
   
   use Apache::Test;
   
  +use Apache::Connection ();
  +use Apache::RequestRec ();
  +
   use APR::NetLib ();
   
  +use Apache::Const -compile => 'OK';
  +
   sub handler {
       my $r = shift;
       my $c = $r->connection;
  @@ -26,7 +31,7 @@
   
       ok ! $ipsub->test($c->remote_addr);
   
  -    0;
  +    Apache::OK;
   }
   
   1;
  
  
  
  1.7       +5 -6      modperl-2.0/t/response/TestAPR/perlio.pm
  
  Index: perlio.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/perlio.pm,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- perlio.pm	4 Jan 2002 09:30:45 -0000	1.6
  +++ perlio.pm	11 Apr 2002 11:08:44 -0000	1.7
  @@ -1,22 +1,21 @@
   package TestAPR::perlio;
   
   use strict;
  -use warnings;# FATAL => 'all';
  -
  -use Apache::Const -compile => 'OK';
  +use warnings FATAL => 'all';
   
   use Apache::Test;
   use Apache::TestUtil;
   
  -my $have_perlio = eval { require APR::PerlIO };
  -
   use Fcntl ();
   use File::Spec::Functions qw(catfile);
   
  +use Apache::Const -compile => 'OK';
  +use constant HAVE_PERLIO => eval { require APR::PerlIO };
  +
   sub handler {
       my $r = shift;
   
  -    unless ($have_perlio) {
  +    unless (HAVE_PERLIO) {
           #XXX dunno why have_module doesn't work here.
           my $reason = "APR::PerlIO is not available with this Perl";
           $r->puts("1..0 #Skipped: $reason\n");
  
  
  
  1.3       +2 -1      modperl-2.0/t/response/TestAPR/pool.pm
  
  Index: pool.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/pool.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- pool.pm	13 Jul 2001 16:33:45 -0000	1.2
  +++ pool.pm	11 Apr 2002 11:08:44 -0000	1.3
  @@ -5,8 +5,9 @@
   
   use Apache::Test;
   
  -use Apache::Const -compile => 'OK';
   use APR::Pool ();
  +
  +use Apache::Const -compile => 'OK';
   
   sub cleanup {
       my $arg = shift;
  
  
  
  1.2       +2 -1      modperl-2.0/t/response/TestAPR/string.pm
  
  Index: string.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/string.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- string.pm	29 Jan 2002 07:47:25 -0000	1.1
  +++ string.pm	11 Apr 2002 11:08:44 -0000	1.2
  @@ -5,9 +5,10 @@
   
   use Apache::Test;
   use Apache::TestUtil;
  -use Apache::Const -compile => 'OK';
   
   use APR::String ();
  +
  +use Apache::Const -compile => 'OK';
   
   my %size_string = (
       '-1'            => "  - ",
  
  
  
  1.5       +4 -3      modperl-2.0/t/response/TestAPR/table.pm
  
  Index: table.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/table.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- table.pm	28 Sep 2001 17:20:32 -0000	1.4
  +++ table.pm	11 Apr 2002 11:08:44 -0000	1.5
  @@ -5,9 +5,10 @@
   
   use Apache::Test;
   
  -use Apache::Const -compile => 'OK';
   use APR::Table ();
   
  +use Apache::Const -compile => 'OK';
  +
   my $filter_count;
   my $TABLE_SIZE = 20;
   
  @@ -104,7 +105,7 @@
       my ($key,$value) = @_;
       $filter_count++;
       unless ($key eq chr($value+97)) {
  -        die "arguments I recieved are bogus($key,$value)";
  +        die "arguments I received are bogus($key,$value)";
       }
       return 1;
   }
  @@ -113,7 +114,7 @@
       my ($key,$value) = @_;
       $filter_count++;
       unless ($key eq chr($value+97)) {
  -        die "arguments I recieved are bogus($key,$value)";
  +        die "arguments I received are bogus($key,$value)";
       }
       return 0 if ($filter_count == int($TABLE_SIZE)/2);
       return 1;
  
  
  
  1.4       +3 -1      modperl-2.0/t/response/TestAPR/util.pm
  
  Index: util.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/util.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- util.pm	31 Jan 2002 02:41:27 -0000	1.3
  +++ util.pm	11 Apr 2002 11:08:44 -0000	1.4
  @@ -8,6 +8,8 @@
   
   use APR::Util ();
   
  +use Apache::Const -compile => 'OK';
  +
   sub handler {
       my $r = shift;
   
  @@ -27,7 +29,7 @@
   
       ok $str eq 'passwords do not match';
   
  -    0;
  +    Apache::OK;
   }
   
   1;
  
  
  
  1.2       +3 -1      modperl-2.0/t/response/TestAPR/uuid.pm
  
  Index: uuid.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/uuid.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- uuid.pm	2 Apr 2001 09:04:28 -0000	1.1
  +++ uuid.pm	11 Apr 2002 11:08:44 -0000	1.2
  @@ -7,6 +7,8 @@
   
   use APR::UUID ();
   
  +use Apache::Const -compile => 'OK';
  +
   sub handler {
       my $r = shift;
   
  @@ -22,7 +24,7 @@
   
       ok $uuid eq $uuid_parsed->format;
   
  -    0;
  +    Apache::OK;
   }
   
   1;
  
  
  
  1.7       +4 -1      modperl-2.0/t/response/TestApache/cgihandler.pm
  
  Index: cgihandler.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestApache/cgihandler.pm,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- cgihandler.pm	28 Sep 2001 17:27:46 -0000	1.6
  +++ cgihandler.pm	11 Apr 2002 11:08:44 -0000	1.7
  @@ -3,7 +3,10 @@
   use strict;
   use warnings FATAL => 'all';
   
  -use Apache::Const -compile => 'M_POST';
  +use Apache::RequestRec ();
  +use APR::Table ();
  +
  +use Apache::Const -compile => qw(OK M_POST);
   
   #test the 1.x style perl-script handler
   
  
  
  
  1.11      +1 -1      modperl-2.0/t/response/TestApache/compat.pm
  
  Index: compat.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestApache/compat.pm,v
  retrieving revision 1.10
  retrieving revision 1.11
  diff -u -r1.10 -r1.11
  --- compat.pm	21 Jan 2002 08:32:46 -0000	1.10
  +++ compat.pm	11 Apr 2002 11:08:44 -0000	1.11
  @@ -38,7 +38,7 @@
           $r->print("test $data{test}");
       }
   
  -    Apache::OK;
  +    OK;
   }
   
   sub ok    { $gr->print($_[0] ? "ok\n" : "nok\n"); }
  
  
  
  1.5       +1 -1      modperl-2.0/t/response/TestApache/compat2.pm
  
  Index: compat2.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestApache/compat2.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- compat2.pm	7 Apr 2002 21:41:33 -0000	1.4
  +++ compat2.pm	11 Apr 2002 11:08:44 -0000	1.5
  @@ -188,7 +188,7 @@
           }
       }
   
  -    Apache::OK;
  +    OK;
   }
   
   
  
  
  
  1.3       +4 -2      modperl-2.0/t/response/TestApache/conftree.pm
  
  Index: conftree.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestApache/conftree.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- conftree.pm	2 Oct 2001 13:30:32 -0000	1.2
  +++ conftree.pm	11 Apr 2002 11:08:44 -0000	1.3
  @@ -5,8 +5,11 @@
   
   use Apache::Test;
   use Apache::TestConfig ();
  +
   use Apache::Directive ();
   
  +use Apache::Const -compile => 'OK';
  +
   sub handler {
       my $r = shift;
   
  @@ -19,7 +22,6 @@
   
       ok $vars;
   
  -
       my $tree = Apache::Directive->conftree;
   
       ok $tree;
  @@ -36,7 +38,7 @@
   
       ok $serverroot eq qq("$vars->{serverroot}");
   
  -    0;
  +    Apache::OK;
   }
   
   sub find_config_val {
  
  
  
  1.3       +6 -1      modperl-2.0/t/response/TestApache/post.pm
  
  Index: post.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestApache/post.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- post.pm	19 Apr 2001 17:36:34 -0000	1.2
  +++ post.pm	11 Apr 2002 11:08:44 -0000	1.3
  @@ -3,6 +3,11 @@
   use strict;
   use warnings FATAL => 'all';
   
  +use Apache::RequestRec ();
  +use Apache::RequestIO ();
  +
  +use Apache::Const -compile => 'OK';
  +
   sub handler {
       my $r = shift;
       $r->content_type('text/plain');
  @@ -11,7 +16,7 @@
   
       $r->puts(join ':', length($data), $data);
   
  -    0;
  +    Apache::OK;
   }
   
   1;
  
  
  
  1.2       +6 -1      modperl-2.0/t/response/TestApache/read.pm
  
  Index: read.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestApache/read.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- read.pm	5 May 2001 18:46:14 -0000	1.1
  +++ read.pm	11 Apr 2002 11:08:44 -0000	1.2
  @@ -3,6 +3,11 @@
   use strict;
   use warnings FATAL => 'all';
   
  +use Apache::RequestRec ();
  +use Apache::RequestIO ();
  +
  +use Apache::Const -compile => 'OK';
  +
   use constant BUFSIZ => 512; #small for testing
   
   sub handler {
  @@ -26,7 +31,7 @@
   
       $r->puts($buffer);
   
  -    0;
  +    Apache::OK;
   }
   
   1;
  
  
  
  1.2       +4 -1      modperl-2.0/t/response/TestApache/scanhdrs.pm
  
  Index: scanhdrs.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestApache/scanhdrs.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- scanhdrs.pm	8 May 2001 21:08:46 -0000	1.1
  +++ scanhdrs.pm	11 Apr 2002 11:08:44 -0000	1.2
  @@ -3,8 +3,11 @@
   use strict;
   use warnings FATAL => 'all';
   
  -use Apache::compat ();
   use Apache::Test;
  +
  +use Apache::compat ();
  +
  +use Apache::Const -compile => 'OK';
   
   sub handler {
       my $r = shift;
  
  
  
  1.7       +2 -2      modperl-2.0/t/response/TestApache/subprocess.pm
  
  Index: subprocess.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestApache/subprocess.pm,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- subprocess.pm	9 Apr 2002 07:26:24 -0000	1.6
  +++ subprocess.pm	11 Apr 2002 11:08:44 -0000	1.7
  @@ -3,13 +3,13 @@
   use strict;
   use warnings FATAL => 'all';
   
  -use Apache::Const -compile => 'OK';
  -
   use Apache::Test;
   use Apache::TestUtil;
  +
   use File::Spec::Functions qw(catfile catdir);
   
   eval { require Apache::SubProcess };
  +use Apache::Const -compile => 'OK';
   
   my %scripts = (
        argv   => 'print STDOUT "@ARGV";',
  
  
  
  1.2       +6 -1      modperl-2.0/t/response/TestApache/write.pm
  
  Index: write.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestApache/write.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- write.pm	5 May 2001 19:24:41 -0000	1.1
  +++ write.pm	11 Apr 2002 11:08:44 -0000	1.2
  @@ -3,6 +3,11 @@
   use strict;
   use warnings FATAL => 'all';
   
  +use Apache::RequestRec ();
  +use Apache::RequestIO ();
  +
  +use Apache::Const -compile => 'OK';
  +
   use constant BUFSIZ => 512; #small for testing
   
   sub handler {
  @@ -19,7 +24,7 @@
       $ok = "not ok 2\n";
       $r->write($ok, 5, 4);
   
  -    0;
  +    Apache::OK;
   }
   
   1;
  
  
  
  1.2       +5 -1      modperl-2.0/t/response/TestDirective/env.pm
  
  Index: env.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestDirective/env.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- env.pm	19 Nov 2001 00:13:55 -0000	1.1
  +++ env.pm	11 Apr 2002 11:08:44 -0000	1.2
  @@ -3,9 +3,13 @@
   use strict;
   use warnings FATAL => 'all';
   
  -use Apache::Const -compile => 'OK';
   use Apache::Test;
   use Apache::TestUtil;
  +
  +use Apache::RequestRec ();
  +use APR::Table ();
  +
  +use Apache::Const -compile => 'OK';
   
   sub handler {
       my $r = shift;
  
  
  
  1.4       +5 -1      modperl-2.0/t/response/TestDirective/perlmodule.pm
  
  Index: perlmodule.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestDirective/perlmodule.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- perlmodule.pm	6 Apr 2002 04:09:36 -0000	1.3
  +++ perlmodule.pm	11 Apr 2002 11:08:44 -0000	1.4
  @@ -10,8 +10,12 @@
   use Apache2 ();
   
   use Apache::Test ();
  -use Apache::Const -compile => 'OK';
  +
  +use Apache::RequestRec ();
  +use Apache::RequestIO ();
   use File::Spec::Functions qw(catfile);
  +
  +use Apache::Const -compile => 'OK';
   
   sub handler {
       my $r = shift;
  
  
  
  1.7       +6 -1      modperl-2.0/t/response/TestDirective/perlrequire.pm
  
  Index: perlrequire.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestDirective/perlrequire.pm,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- perlrequire.pm	6 Apr 2002 01:42:53 -0000	1.6
  +++ perlrequire.pm	11 Apr 2002 11:08:44 -0000	1.7
  @@ -10,9 +10,14 @@
   use warnings FATAL => 'all';
   
   use Apache2 ();
  +
   use Apache::Test ();
  -use Apache::Const -compile => 'OK';
  +
  +use Apache::RequestRec ();
  +use Apache::RequestIO ();
   use File::Spec::Functions qw(catfile);
  +
  +use Apache::Const -compile => 'OK';
   
   sub handler {
       my $r = shift;
  
  
  
  1.2       +3 -0      modperl-2.0/t/response/TestDirective/setupenv.pm
  
  Index: setupenv.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestDirective/setupenv.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- setupenv.pm	19 Nov 2001 00:14:53 -0000	1.1
  +++ setupenv.pm	11 Apr 2002 11:08:44 -0000	1.2
  @@ -3,6 +3,9 @@
   use strict;
   use warnings FATAL => 'all';
   
  +use Apache::RequestRec ();
  +use Apache::RequestIO ();
  +
   use Apache::Const -compile => 'OK';
   
   sub handler {
  
  
  
  1.3       +5 -0      modperl-2.0/t/response/TestModperl/dir_config.pm
  
  Index: dir_config.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestModperl/dir_config.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- dir_config.pm	1 Jan 2002 10:36:05 -0000	1.2
  +++ dir_config.pm	11 Apr 2002 11:08:44 -0000	1.3
  @@ -3,6 +3,11 @@
   use strict;
   use warnings FATAL => 'all';
   
  +use Apache::Server ();
  +use Apache::ServerUtil ();
  +use Apache::RequestUtil ();
  +use APR::Table ();
  +
   use Apache::Test;
   use Apache::TestUtil;
   
  
  
  
  1.2       +4 -1      modperl-2.0/t/response/TestModperl/endav.pm
  
  Index: endav.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestModperl/endav.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- endav.pm	8 Oct 2001 20:37:33 -0000	1.1
  +++ endav.pm	11 Apr 2002 11:08:44 -0000	1.2
  @@ -3,8 +3,11 @@
   use strict;
   use warnings FATAL => 'all';
   
  -use Apache::Test;
   use ModPerl::Global ();
  +
  +use Apache::Test;
  +
  +use Apache::Const -compile => 'OK';
   
   sub handler {
       my $r = shift;
  
  
  
  1.2       +4 -0      modperl-2.0/t/response/TestModperl/env.pm
  
  Index: env.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestModperl/env.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- env.pm	15 Nov 2001 03:03:22 -0000	1.1
  +++ env.pm	11 Apr 2002 11:08:44 -0000	1.2
  @@ -3,7 +3,11 @@
   use strict;
   use warnings FATAL => 'all';
   
  +use Apache::RequestRec ();
  +use APR::Table ();
  +
   use Apache::Test;
  +
   use Apache::Const -compile => 'OK';
   
   sub handler {
  
  
  
  1.2       +4 -1      modperl-2.0/t/response/TestModperl/exit.pm
  
  Index: exit.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestModperl/exit.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- exit.pm	8 Oct 2001 23:45:01 -0000	1.1
  +++ exit.pm	11 Apr 2002 11:08:44 -0000	1.2
  @@ -3,8 +3,11 @@
   use strict;
   use warnings FATAL => 'all';
   
  -use Apache::Test;
   use ModPerl::Util ();
  +
  +use Apache::Test;
  +
  +use Apache::Const -compile => 'OK';
   
   sub handler {
       my $r = shift;
  
  
  
  1.4       +4 -0      modperl-2.0/t/response/TestModperl/getc.pm
  
  Index: getc.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestModperl/getc.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- getc.pm	8 Jan 2002 22:49:32 -0000	1.3
  +++ getc.pm	11 Apr 2002 11:08:44 -0000	1.4
  @@ -3,7 +3,11 @@
   use strict;
   use warnings FATAL => 'all';
   
  +use Apache::RequestIO ();
  +
   use Apache::Test;
  +
  +use Apache::Const -compile => 'OK';
   
   sub handler {
       my $r = shift;
  
  
  
  1.2       +2 -0      modperl-2.0/t/response/TestModperl/pnotes.pm
  
  Index: pnotes.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestModperl/pnotes.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- pnotes.pm	13 Nov 2001 18:09:19 -0000	1.1
  +++ pnotes.pm	11 Apr 2002 11:08:44 -0000	1.2
  @@ -3,6 +3,8 @@
   use strict;
   use warnings FATAL => 'all';
   
  +use Apache::RequestUtil ();
  +
   use Apache::Test;
   use Apache::TestUtil;
   
  
  
  
  1.5       +4 -0      modperl-2.0/t/response/TestModperl/print.pm
  
  Index: print.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestModperl/print.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- print.pm	8 Jan 2002 22:46:09 -0000	1.4
  +++ print.pm	11 Apr 2002 11:08:44 -0000	1.5
  @@ -3,7 +3,11 @@
   use strict;
   use warnings FATAL => 'all';
   
  +use Apache::RequestIO ();
  +
   use Apache::Test;
  +
  +use Apache::Const -compile => 'OK';
   
   sub handler {
       my $r = shift;
  
  
  
  1.2       +2 -0      modperl-2.0/t/response/TestModperl/printf.pm
  
  Index: printf.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestModperl/printf.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- printf.pm	6 Nov 2001 18:43:57 -0000	1.1
  +++ printf.pm	11 Apr 2002 11:08:44 -0000	1.2
  @@ -5,6 +5,8 @@
   
   use Apache::RequestIO ();
   
  +use Apache::Const -compile => 'OK';
  +
   sub handler {
       my $r = shift;
   
  
  
  
  1.4       +5 -1      modperl-2.0/t/response/TestModperl/readline.pm
  
  Index: readline.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestModperl/readline.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- readline.pm	8 Jan 2002 22:49:32 -0000	1.3
  +++ readline.pm	11 Apr 2002 11:08:44 -0000	1.4
  @@ -3,8 +3,12 @@
   use strict;
   use warnings FATAL => 'all';
   
  -use Apache::Test;
  +use Apache::RequestIO ();
   use Apache::compat (); #XXX
  +
  +use Apache::Test;
  +
  +use Apache::Const -compile => 'OK';
   
   sub handler {
       my $r = shift;
  
  
  
  1.2       +4 -0      modperl-2.0/t/response/TestModperl/sameinterp.pm
  
  Index: sameinterp.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestModperl/sameinterp.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- sameinterp.pm	20 Oct 2001 03:44:26 -0000	1.1
  +++ sameinterp.pm	11 Apr 2002 11:08:44 -0000	1.2
  @@ -3,6 +3,10 @@
   use warnings FATAL => 'all';
   use strict;
   
  +use Apache::RequestIO ();
  +
  +use Apache::TestHandler ();
  +
   use Apache::Const -compile => qw(OK);
   
   my $value = '';
  
  
  
  1.10      +2 -0      modperl-2.0/t/response/TestModules/cgi.pm
  
  Index: cgi.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestModules/cgi.pm,v
  retrieving revision 1.9
  retrieving revision 1.10
  diff -u -r1.9 -r1.10
  --- cgi.pm	19 Nov 2001 22:08:17 -0000	1.9
  +++ cgi.pm	11 Apr 2002 11:08:45 -0000	1.10
  @@ -6,6 +6,8 @@
   use Apache::compat ();
   use CGI ();
   
  +use Apache::Const -compile => 'OK';
  +
   sub handler {
       my $r = shift;
   
  
  
  
  1.2       +2 -0      modperl-2.0/t/response/TestModules/cgiupload.pm
  
  Index: cgiupload.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestModules/cgiupload.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- cgiupload.pm	8 May 2001 05:19:46 -0000	1.1
  +++ cgiupload.pm	11 Apr 2002 11:08:45 -0000	1.2
  @@ -6,6 +6,8 @@
   use Apache::compat ();
   use CGI ();
   
  +use Apache::Const -compile => 'OK';
  +
   sub handler {
       my $r = shift;
   
  
  
  

Mime
View raw message