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;