You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2002/04/11 13:08:45 UTC
cvs commit: modperl-2.0/t/response/TestModules cgi.pm cgiupload.pm
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;